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Compose Yourself with the New 



By Thomas G. Schneider 
MITS 



Altair 88 IVIU1 



Through the gray gloom and the mid- 
night mist swirling around the gnarled 
branches of long-dead vegatation, the 
castle loomed dark and foreboding on the 
edge of a huge cliff. I viewed the scene 
with some apprehension, but called to the 
driver to move on. When the ancient creaky 
carriage finally rumbled into the cobble- 
Stoned courtyard, I thought that I heard 
swells of medieval organ music booming 
ominously through the stone walls. "How 
gothic,." I quipped to myself, jumping 
down from the carriage and peering suspi- 
ciously at the "KILOBAUD Sold Here" 
sign in the window. 

Approaching the heavy wooden door 
with large brass knockers, I had a funny- 
feeling of deja vu. Hmm. Maybe it was 
that Gene Wilder movie about monsters I 
had seen recently. Just then the door 
opened abruptly, and a black-cloaked 
gentleman with pointed teeth appeared. 
Bowing, he introduced himself as the count. 

"You've probably heard this line 
before," he said in a slow, thick accent, 
"but, good evening. Welcome to my 
castle. Your rooms are awaiting. Dinner 
will be served at 8:00. Afterwards, we will 
give the demonstration," he said with a 
ghoulish smile as he turned to leave. 

continued page 2 
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As I prepared for dinner, I wondered 
what he had in store for me. Strange man, 
this count . . .1 couldn't help but think I 
knew him from somewhere else. Oh well, 
the demonstration would be interesting. 

After a delicious repast of undeter- 
mined substance, the count led me down a 
wooden cobwebbed stairway to what I 
assumed could only be the dungeon. 
"Don't mind the bats," he said. "They 
give the place character." He fumbled with 
the heavy iron padlock and pushed against 
the old dungeon door. My heart raced. 
Finally, the door gave way and slowly 
creaked open to reveal an amazing spec- 
tacle. 

I had expected to see an immense pipe 
organ of the kind usually seen only in well- 
preserved European cathedrals, but I was 
wrong. Occupying all four walls of the 
dungeon and reaching almost to the ceiling 
was the largest collection of sound equip- 
ment I hau ever laid eyes upon. Completely 
covering three walls were woofers, tweet- 
ers, midranges, folded horns, ring radia- 
tors, and all sorts of sound reproducing 
devices. The fourth wall was obscured by 
racks and racks of high-power audio ampli- 
fiers, tape machines, equalizers, and other 
audio processing equipment. "Listen care- 
fully," he said, flipping up a bat-handle 
toggle switch. 

The machinery clicked, popped, and 
buzzed for several mintues before I finally 
heard what I had come all this way to 
experience. Emanating simultaneously 
from hundreds of speakers came the most 
musically precise rendition of Johann 
Sebastian Bach's Toccata and Fugue In 
D Minor that I had ever heard. Every 
massive chord, every subtle passage was 
accurately reproduced. But from where??? 
None of the tape machines were running... 
something strange was going on here. As 
strains of the Fugue floated through the 
dungeon I asked the count how it was all 
done. 

"Very simply," he replied, pointing to 
an object in the corner. 

"An Altair? What are you doing with 
an Altair? Counting bats? ! " 

"Let's not be silly, my good man," he 
said, somewhat miffed. "Nowadays, 
what self-respecting vampire would be 
without a computer? Besides, how else 
could I make such splendid music?" 

"You must be joking. How can a 
microcomputer do all this?" 

"Very easily," he said. "Since my 
friends at MITS came up with the 88-MU1 
and the MOS-DOS software for composi- 
tion, I can play just about anything using 
my Altair!" 



"Tell me more," I implored. 

"Very well," he sighed and provided 
me with the following information. 

The Altair 88-MU1 is a polyphonic six- 
channel note generator card. With it, the 
user can generate, under complete soft- 
ware control, six independent musical 
sequences all running simultaneously in 
real time. The 88-MU1 comes with a 
sophisticated, high-level software package 
with full composition and editing capabil- 
ities. It also includes output connectors 
designed to connect to most stereo ampli- 
fiers. The software package will run in any 
Altair disk system with at least 16K of 
memory. 



line. These characters will control such 
functions as envelope shaping, filtering, 
and vibrato effects. After all channels of 
the composition have been entered, the 
composition can be played at a variety of 
tempos determined by the user. 

For those users desiring musical 
effects, the 88-MU1 can also be easily 
accessed by user routines written in mach- 
ine code. Figure 1 shows what the 88-MU1 
looks like to software. The base address 
can be set from to octal 360 in increments 
of 16. For even more flexibility, the 
88-MU1 can accept two external signals: 
one is the reference frequency for the 
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Altair " Note Synthesizer Board (88-MU1) 



Composition using the 88-MU1 soft- 
ware is simple. The software allows the 
creation of six independent text files which 
can be saved and recalled from disk. Each 
group of six files can be given a common 
name up to eight characters long. The 88- 
MU1 software also incorporates a powerful 
text editor for listing files, inserting or 
deleting lines, and renumbering files. 

Listing 1 is a sample listing for one 
channel of a six-channel composition. 
Each line contains three fields describing 
note, octave and timing parameters. For 
example, line 1 specifies a C note in the 
fourth octave lasting 1/8 of a second. Line 
2 specifies a D note in the fifth octave last- 
ing 1/8 + 1/16 of a second. (The period 
after the eight specifies a dotted eighth 
note.) Line 3 specifies an F# note in the 
seventh and eighth octaves lasting one 
second. The length of each channel of a 
composition is limited only by the amount 
of memory in the user's machine. 

Listing 1 

1 C, 4, 8 

2 D,5, 8 

3 F#, 78, 1 

As the system is expanded, special 
characters may be added to the end of each 



88-MUl's pitch generator. This signal is 
normally derived from the Altair 8800's 
two MHZ clock, but can also be externally 
applied by the user. For example, input- 
ting a one MHZ signal will cause the 
88MUl's entire range to be shifted down 
one octave. The other signal is the soft- 
ware synchronization signal. It normally 
occurs at a frequency of 128 HZ, but can be 
externally applied, giving the user control 
of the rate of the composition execution 
speed. 

"This 88-MU1 is fascinating," I said 
to the count. 

"Yes indeed, most remarkable. . .but 
unfortunately, I must be leaving you now," 
he said. "It's getting close to dawn, so I 
must retire. I trust the demonstration 
pleased you." he remarked as he escorted 
me to the courtyard where the same black 
carriage was waiting. "Most impressive. I 
enjoyed every bit of it. " 

As the carriage started rolling, I 
couldn't help but lean out the window and 
shout, 'Fangs a lot for everything!" The 
count grimaced painfully as the carriage 
moved through the castle gate. But I 
hurried on, eager to get home and treat my 
Altair to a brand new 88-MU1. 
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Storage up to 80 MBytes with 

Altair Hard Disk System 



By Bennett Inkeles 
MITS 



The new Datakeeper Hard Disk Sys- 
tem (88-HDSK) from MITS offers a unique 
form of expanded mass storage for Altair 
88G0 series microcomputers. It consists of 
the Altair Datakeeper Controller and a 
Pertec D3422 Hard Disk Drive. The 88- 
HDSK has a data storage capacity of 
approximately 10 MBytes. 
(A 20 MByte drive option is also available. 
Business management, education, and 
scientific applications are among the 
numerous possibilities in which the 
88-HDSK may be incorporated. 

The following components make up 
and are included with the purchase of the 
Datakeeper Hard Disk System: 
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Altair Datakeeper Controller in a 
self-contained cabinet. 
1 pair of interconnect cables for 
controller to computer connection 
1 cable assembly for controller to 
Pertec Hard Disk Drive connection. 
1 Pertec D3422 Hard Disk Drive 
with Fixed Platter. 

E. 1 5440 Removable Top Loading 
Cartridge with Altair Datakeeper 
BASIC. 

F. 1 set of Bootstrap Loader PROMs 
for system initialization. 

G. Datakeeper Hard Disk System 
Documentation 



The Datakeeper Controller acts as the 
interface between the Hard Disk Drive and 
the Altair 8800 computer. Up to four disk 
drives may be interfaced with one control- 
ler allowing a total storage capacity of 
approximately 40 MBytes. The controller 
unit includes a fiverslot, bus-oriented 
motherboard, three plug-in interface 
boards and power supply. The plug-in 
Interface boards are : 

A. Processor Board-contains a 8 x 
300 bipolar processor, TTL ROM, 
IK byte of buffer RAM for data 
transfers, and two bidirectional 
1/0 ports for communicating with 
the computer. 
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Increase Data Storage 

continued 



B. Disk Data Board-has serial to 
parallel and parallel to serial con- 
verters, FIFO Registers, CRC 
generator/checker, and bit count- 
ers. 

C. Disk Interface Board-includes the 
write data rate clock, I/O ports, and 
line drivers for communicating 
with the Hard Disk Drive. 

The Altair computer communicates to the 
Datakeeper Controller through two ports of 
an88-4-PI0. 

The 88-HDSK utilizes the Pertec 
D3422 Hard Disk Drive with 24 sectored 
format. It allows for approximately 5 
MBytes of storage using th£ Fixed Platter 
and increases to 10 MBytes when the 
Removable Top Loading Cartridge is 
added. 

To properly implement the 88-HDSK, 
the Altair 8800 series mainframe requires: 

A. 48 K bytes of RAM memory (three 
each of either the Altair 88-16MCD 
or88-16MCS) 

B. 2 parallel ports (one each of Altair 
88-4 PIO and 88-PP) 

C. 1 PROM Memory Card (Altair 88- 
PMC) 

D. Serial I/O Board for terminal com- 
munication (Altair 88-2SI0) 

E. Terminal-CRT or Teletype ™ 
The Datekeeper Hard Disk System 

design emphasizes operational reliability 
and user convenience. Turnkey Operation 
assures fast and efficient power-up and 
program loading. Modular construction 
permits future expansion and easy compo- 
nent access. The Pertec D3000 series 
Hard Disk Drives have been proven in the 
field in a wide variety of applications and 
environments. This combination of opti- 
mum design and "state of the art" technol- 
ogy further extends the programming and 
data manipulation possibilities for the 
Altair 8800 series. 



Controller Specifications 
A. Power Requirements 

70 watts typical, 120 watts maximum 
Wired for 105-130V, 50/60 HZ 
210-260 V, 50/60 Hz available on re- 
quest 



B. Physical Specifications 

Size - Height 5.3 in (13.5 cm) 
Width 16.85 in (40.5 cm) 
Depth 17.3 in (41.5 CM) 
Weight201bs.(9.1Kg) 
Cabinet styling matches the Altair 
8800b and 8800b Turnkey. A keyswitch 
on the front panel controls the power 
switch, and CPU Reset and Run mode. 
Drive Specifications 

A. Drive Type 

Pertec D3422-E024-M WU 

B. Data Storage Capacity 
1 each Fixed Platter 

4,988,928 Data Bytes 
1 each 5440 type Removable Cartridge 

4,988,928 Data Bytes 
TOTAL 9,977,856 Data Bytes 

C. Physical format 

Tracks per inch 200 

Cylinders 406 

Disk Surfaces 4 

Tracks 1624 

Sectors 24 

Data Bytes/ Sector 256 

D. Serial Data Transfer Rate 

2.5 MBits/second, determined by: 
Spindle speed - 2400 RPM 
Density -2200BPI 

E. Access Time 

1. Latency - Maximum 25.0 ms± 1% 
- Typical 12.5 ms ± 1% 

2. Seek Time - Minimum (Adjacent 

Track) 10 ms, Max. 
Average (V4 Full Stroke) 40 ms, 

Max. 
Maximum (Full Stroke) 65 ms, Max. 

3. Total maximum access time to read 

a Sector: 92 ms (25 ms Latency, 
65 ms Seek, 2 ms Read) 

F. Power Requirements 

1100 watts Peak (start/stop cycle 

only) 
400 watts typical 
95-125V 

or Must specify nominal voltage 

190-250 V 

48 to 52 Hz 

or Must specify if nominal line 

58 to 62 Hz frequency is 50 Hz 

G. Physical Specifications 

Height 8 Y* inches (22.2 cm) 

Width 19 inches (48.3 cm) 

Depth 29 V* inches TOTAL (74.3 cm) 
Weight 130 lbs. (59 Kg) 

H. Reliability 

Meantime between failure - MTBF - 
4000 hrs. 

Service life 5 years or 24,000 hrs. 
Meantime to repair - 1 hr. 



I. Recommended Preventive Maintenance 
-Alignment check using CE pack 

recommended after moving or every 3 
months/1000 hrs. 
-1000 hr/3 months inspection and 

cleaning recommended 
-2000 hr/6 months replace air filter, 

inspect for wear 



NOTES 

1. If using the Altair 8800 Turnkey, the 
88-PMC and 88-2SI0 are not re- 
quired. 

2. The88-HDSK System is notdesigned 
to run with the Altair Floppy Disk or 
Minidisk Systems. 
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Z-80 CPU Increases Processing Capabilities 
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Z-80 CPU 



88-16MCD Compatible 
with 8800 A 



By Robert Lopez 
MITS 



Since the introduction of the Altair 
88-MCD, there has been some confusion 
among many of our customers about 
whether or not it's compatible with the 
8800A and other Altair computer plug-in 
boards. With a simple power supply modi- 
fication to the 8800A, the 16MCD becomes 
compatible with both the 8800A and all 
Altair 8800 series plug-in boards. 

The Power supply lines of the Altair 
Bus System are unregulated supply lines, 
i.e. the voltage present can vary depending 
upon input A.C. line voltage and frequency 
and the load power demand. Regulation 
for each supply line is done individually on 
each printed circuit board. An Altair 
8800A should have bus lines #1 and #51 not 
less than +7v. (+7.5 NOMINAL), bus 
line #2 not less than +14v (+15 Nominal), 
and Bus Line #52 not less than -14v (-15 
Nominal). 

Changes in technology lead to printed 
circuit boards which loaded down the 
+7.5v line to less than +7v. voltages less 
than +7v cannot be regulated to a clean 
+5v. The power supply modification 
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printed in the September 1975 CN allowed 
increased loading. 

Several changes have since been made 
in the Altair 8800B which weren't incorpor- 
ated in the 8800A. Bus lines #1 and #51 in 
the 8800B should be not less than + 7v ( + 8 
Nominal), line #2 should be not less than 
+ 17v (+18 Nominal), and line #52 should 
be not less than -17v (-18 Nominal). 

The 16MCD was designed to run in 
the Altair 8800B and the Altair 8800B 
Turnkey, which has the same bus specifica- 
tions as the 8800B. The requirement of the 
16MCD which limits its operation to the 
8800B is the +15V necessary for the 
Mostek 4096 Rams. A 7815 regulator is 
used to regulated the +15v. For complete 
regulation, a 7815 requires a minimum of 
+ 17v. 

So to use the 16MCD in an 8800A, it's 
necessary to convert to 8800A power 
supply to 8800B specifications. In order to 
accomplish this conversion, the 8800A 
power transformer must be replaced 
with MITS part #102621. Owners of Altair 
8800A's who purchase a 16MCD will re- 
ceive the new power transformer at no 
cost. 



By Susan Blumenthal MITS 

MITS introduces a Z-80-based Control 
Processing board to increase the proces- 
sing capabilities of the Altair 8800 series 
microcomputers . 

Designed as a replacement for 
the 8080 CPU, the Z-80 contains a powerful 
extended instruction set in addition to the 
standard 8080 instruction. It is compatible 
with any Altair 8800 series microcom- 
puter with complete compatibility. (The 
Z-80 CPU Board is not compatible with the 
88-PMC 8, 8K Prom Memory Card.) No 
hardware modifications are necessary to 
accomodate the board. 

The internal hardware of the Z-80 
microprocessor consists of: 

-12 General purpose registors 
,-- 2 Accumulators 
-- 2 Index registers 
- 2 Flag registers. 
The Z-80 operates under a variety of 
software which includes: 

Z-80 BASIC - a modified version of 
Altair BASIC (all current versions 
4K, 8K, Extended and Disk) 
DOS (Disk Operating System) 
Current available versions of DOS 
will operate with the Z-80. 
The Z-80 CPU provides all 78 of the 
8080 microprocessor instructions and an 
additional 80 instructions. Some of these 
added valuable instructions include: 
-A block transfer group 
—A block search group 
—Individual bit manipulation group. 
The Z-80 includes all 8080 addressing 
modes plus indexed and bit modes. With 
the increased capabilities of a more com- 
prehensive instruction set and addressing 
modes, the amount of memory required for 
machine language programs decreases. 

The Z-80 CPU is available for $295 
fully assembled and $275 in Kit form. It's 
also available in a fully assembled Altair 
microcomputer. 

Specifications 

Power Requirements: 

5 vdc at 500 MA 

+ 12vdcat40MA 
Instruction Cycle: 

2 microseconds (minimum) 
Block Transfer rate: 

95,000 bytes per second including 

increment and decrement overhead 
Dimensions: 

10" x5" 
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By Steve Gride 

MITS Engineering Dept. 

A number of new Altair computer 
users have said that they don't understand 
how the interrupt system is used in the 
Altair 8800 series. This has led to 

a misunderstanding concerning single- 
level interrupts; how are they generated, 
and what happens during their acknowl- 
edgement? Users also ask, "How can I 
change a single-level interrupt to jump to a 
location other than 070(8)?" This article 
will attempt to address these questions. 

The Altair 8800 microcomputers use 
an eight-level vectored interrupt system. 
This system is based on the interrupt- 
response vector built into the 8080 CPU 
chip. It has the following effect: When an 
interrupt occurs, the device generating the 
interrupt creates a vector address, which 
the CPU uses as a restart address during 
the interrupt-acknowledge cycle. This 
results in a call to one of the low-memory 
restart areas 

In the Altair system, the restart vector 
address is usually created by the 88-VI 
board (vectored interrupt board). This 
board allows the prioritizing of up to eight 
levels of interrupts in the restart area. 
When this board is absent, however, it is 
the responsibility of the interrupting device 
to generate the interrupt address. This is 
usually not done, resulting in a "floating" 
input to the CPU during interrupt-acknowl- 
edge time. These "floating" inputs look 
like a vector-7to the CPU, which acknowl- 
edges with a restart to 070(8). So most 
single-level interrupt systems automatically 
generate a restart to level 7. 
(Note: All MITS standard software recog- 
nizes single-level interrupts at level 7, 
therefore, any hardware modifications will 
require a corresponding change in soft- 
ware.) 

The way to jump to a different location 
in the interrupt vector is illustrated schema- 
tically in Figure 1. During the interrupt- 
acknowledge cycle, the CPU generates the 
status signals Ml and SINTA. When these 
two signals occur concurrently, the restart 
vector is gated onto the data bus. 

This circuit may be built up "piggy- 
back" on the 1/0 or other board which will 
use it, or it may be built on a separate 
breadboard and plugged into the bus. 
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FLOPPY DISK: 

Does Your Drive Buzz 
During a Mount? 



By Thomas Durston 

If your Floppy Disk Drive makes a loud 
buzzing noise during Mounting of a disk- 
ette, the problem can be eliminated by 
adjusting a resistor on Floppy Disk Con- 
troller Board #2. 

The buzzing is caused by the Drive's 
head trying to step in farther than it 
should. This occurs during a Mount if an 
error is detected when reading the track 
number. The track number error causes 
the track counter (software) to think it is 
farther out than it should be, stepping the 



head in and against the stop at the end of 
the stepping shaft. The result is the 
buzzing noise. 

This buzzing noi$e occurs only on cer- 
tain diskettes if the Head Load time 
constant is less than 45 ms. It is a function 
of the Mount routine which reads every 
eight sectors. 

To correct the problem, adjust R8 on 
Controller Board #2 to yield a 50ms ± 4ms 
pulse at I.C. Bl pin 13 (TP-6) during a 
Mount command. The value of R8 will be 
approximately 16K, and a 20K or 50K trim- 
pot may be used for adjustment in place of 
R8. 
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Program Allows Disk 
Timesharing to Read 



Non-Timesharing Diskettes 



By: Gale Schonfeld 
RUTS 



Many of you are now sharing our 
excitement over the new Altair Timeshar- 
ing BASIC. Those of you who have the disk 
version may be perturbed about a problem 
with loading 4.0 or 4.1 Disk BASIC pro- 
gram files under Timesharing. However, 
with only a few minutes of your time and 
the computer's, the problem can be solved. 

In the disk version of Timesharing 
BASIC, an optional password may be 
specified during SAVEing of a program. In 
regular Disk BASIC, the password facility 
is not provided. Therefore, the problem 
may occur when a LOAD or RUN command 
is issued in Timesharing for a program on a 
regular BASIC disk. Timesharing may 
respond to the command with PASSWORD 
FOR FILE "XXX. . ."?, and the user will 
not know with what password to answer. 

This problem is due to the format of 
the directory track on the diskettes. To 
review, each sector of the directory track is 
comprised of eight file name slots. Each 
slot contains 16 bytes— eight bytes for the 
file name, one byte for the track pointer, 
one byte for the sector pointer, one byte 
indicating whether the file is random or 
sequential and in regular Disk BASIC, and 
five unused bytes normally set to nulls. In 
Timesharing Disk BASIC, these extra five 
bytes are used for passwords. Occasional- 
ly, "garbage" can get into these extra 
bytes on the normal BASIC diskettes. 
When Timesharing tries to access these 
files, it "sees" a password which the user 
is unaware. If all five bytes are null, 
Timesharing realizes that a password is 
not required. 

The following program, when exe- 
cuted in 4.0 or 4.1 Disk BASIC, will correct 
the directory track of a 4.0 or 4.1 diskette. 
The functions of PASSCHEK are to set the 
last five bytes of the file name slots to nulls 
and recalculate the checksum of the sector 
so it can be read by Timesharing. The 
program PASSCHEK contains detailed 
comments regarding its execution. The 



remark statements can be left out when 
entering the program in order to utilize a 
minimum amount of memory. 

To use PASSCHEK, enter it into 
memory using 4.0 or 4.1 Disk BASIC. (It 
will not run in Timesharing.) Place the 
diskette you need to correct in Disk Drive 
and MOUNT it. Now type RUN. PASS- 
CHEK will run for approximately two to 
three minutes, printing "DONE - CHECK 
USING PIP DAT COMMAND" when it's 
finished. If you wish to check using 

PIO, the format of the floppy disk is de- 
scribed in Appendix H of the Altair BASIC 
Manual. 



For those of you who have old 3.4 Disk 
BASIC program files that you want to run 
under Timesharing Disk BASIC, a few 
extra steps are needed before running 
PASSCHEK on the 3.4 diskette. Since 
Timesharing will read only 4.0 or 4.1 
formatted files, you must convert your 3.4 
files to the 4.0 format. This is easily done 
by first LOADing and then re-SAVEing 
all 3.4 program files in ASCII (e.g. SAVE 
"XXX", O, A), using 3.4 Disk BASIC, and 
then using the 4.0 PIP CNV command on 
the diskette to convert the files to the 
4.0/4.1 format. After this, you can run 
PASSCHEK. 



Program 



10 CLEAR 500 
20 .,' 

LINES 30-80 P0STI0N DISK HEAD TO TRACK 70 

30 DT=70 'DESIRED TRACK IS 70 

40 IF (INPC8) AND 64><>0 THEN WAIT 8, 2, 2: OUT 9,2: 

GOTO 40 
50 "TEST FOP. TRACK 0, IF NOT AT STEP HEAD OUT ONE 

TRACK AND TEST AGAIN 

60 IF DT< OR DT>76 THEN PRINT "ERP0R": STOP 

7 FOP. K=l TO DTsWAIT 8> 2, 2: OUT 9.. 1: NEXT X 

SZ 'STEP DISK HEAD IN DT TRACKS, TO TRACK 70 

90 ' 

LINES 100-160 GET EACH>SECT0R OF TRACK 70 AND REPLACE 
5 BYTES OF FILE SLOT WITH NULLS 



GET EACH SECTOR OF TRACK 70 

READ CURRENT SECTOR 

GET EACH FILE NAME SLOT <8 SLOTS/SECTOR) 



100 FOR SC=0 TO 31 

1 10 AI=DSKI JCSO 

120 FOR SL=0 TO 7 

130 YS=STRINGSC5, 05 

140 MI DSC AS* 19+ CSL* 16), 5> = YS 

150 'REPLACE LAST 5 BYTES 0? EACH FILE NAME 

SLOT WITH NULLS 
160 NEXT SL "GET NEXT SLOT 

170 ' 

LINES 190-290 CORRECT CHECKSUM BYTE OF EACH SECTOR AND 

PUT MODIFIED SECTOR EACK ON DISK 

180 CK=0 'SET CHECKSUM COUNTER TO ZERO 

190 FOR 1=6 TO 135 'ADD UP EYTES 6 THROUGH 135 

200 CK=CK+ASCCMID$CAS, I, 1) ) 
210 NEXT I 

220 FOP. J=3 TO 4 'ADD BYTES 3 AND 4 TO THE SUM OF 6-135 

230 CK=CK + A5CCMIDS(A$, J, 1 ) ) 
240 NEXT J 

250 CK=CK AND 255 'MASK OUT HIGH 0PDER 8 BITS SC THAT CHECK- 

SUM IS ONLY ONE BYTE 
260 MIDSCAS, 5, I > = CHR$CCK> 'REPLACE EYTE 5 OF THE SECTOR WITH 

NEW CHECKSUM BYTE 
270 DSK0S AS, SC 'PUT MODIFIED SECTOR BACK ON DISK 

280 NEXT SC 'GET NEXT SECTOR 

290 PRINT "DONE - CHECK USING PIP DAT COMMAND" 
300 END 
OK 
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PRACTICAL PROGRAMMING 



By Gary Runyon 
MITS 



This new column will discuss some of 
the things we're learning in the MITS 
Computing Services Department about 
how to program in Altair Basic. Although 
the articles will be aimed at the beginning 
programmer, even the most advanced 
programmer should find the column useful 
and interesting. Complete listings of pro- 
gramming aids we've developed (cross, 
reference list program, variable name 
replacement programs, etc.) will be in- 
cluded when necessary. But.there will be 
nothing about programming in machine 
code, except possibly a few USR routines. 

Each month's column will become a 
chapter of the Computing Services Stan- 
dard Practices Manual, which will be used 
bv programmers here at MITS. 
LINE COUNTING 

One of the first problems the begin- 
ning programmer tangles with is line 
counting, i.e. how to tell that you're at the 
bottom of the page when printing a report 
so that you know when to space to the top 
of the next page. After much work, the 
beginner's report program can decide 
when to space to the next page, but for 
some reason it spaces too far or not far 
enough. By adding a patch, everything 
works fine, except for an extra space be- 
tween the first and second pages. A hokey 
patch is added and all works well until the 
program needs its first modification. 

The solution? Adopt a convention, 
understand it, and stick to it. Here at 
MITS the variable name L9 is reserved for 
line counting in all programs. 
L9 points to the next line to be printed. It 
is initialized to one plus the number of lines 
printed at the exit of the page header rou- 
tine. L9 is incremented by one for everv 
line printed thereafter. For L9=L9T066: 
LPRINT:NEXT is the routine for getting 
from the bottom of a page to the top of the 
next page. 

The 66 in the routine comes from six 
lines per inch, 11 inches per page. If you're 
printing special forms (checks, invoices, 



W2, etc.), or have a printer that doesn't 
print six lines per inch, replace the 66 with 
the appropriate lines per page. If you need 
to print a really oddball form, such as three 
Vi" checks, the trick is to throw in an extra 
line every other check. The following will 
handle three V* " forms on a standard print- 
er: 

FORL9=L9T019:LPRINT:NEXT:IF A 
THEN LPRINT: A = ELSE A = 1 . 

Test for bottom of the page when you 
have something to print. Testing for 
bottom of page after printing can result in 
an occasional sloppy header with no data at 
end of report. 

The usual test for bottom of page is: 
IF L9>XX THEN GOSUB [space up and 
print heading]. This results in XX lines 
printed per page with 66-XX spaces 
between the bottom and top of each page. 

The test for bottom of page before 
printing n lines when n is greater than one 
is: IF L9>XX+l-n THEN GOSUB[]. For 
example, if a report has three lines per 
item, five lines of totals, and is not to go 
below line 64, the test before printing each 
item would be: IF L9>62THEN GOSUBD; 
the test before printing the totals would be: 
IF L9>60 THEN GOSUB[]. 

In those cases where n is not a fixed 
constant, the test for bottom of page will 
appear in the form IF L9+n XX+1 THEN 
GOSUB [] (see example program). The 
concept is, "Will the hokey patch work well 
until the program allowed value (XX+1) 
after these n lines are printed?" 

The example program PROGLIST 
demonstrates how to line count. The 
program reads a program saved in ASCII 
and prints a listing with the program name, 
the current date, and page YY of pages ZZ 
at the top of each page. In order to provide 
at least three blank lines between each 
page, the program does not print past line 
63. 

The two clear statements in line 70 
grab off as much string space as is avail- 
able. This holds to a minimum the time 



lost to string space garbage collection. 
Line 100 allows you to input a file name 
ending with a comma and number to speci- 
fy files on other than disk drive zero. Line 
120 checks for the null string that is at the 
beginning of every ASCII file. Lines 140- 
190 read through the file, duplicating what 
will happen to L9 and the page count when 
the file is listed. Line 220 prints the head- 
ing at the top of the first page. 

The FORL9=L9T0132 in line 250 
spaces the printer to the top of page twice, 
leaving the listing where it can be easily 
torn off. 

Lines 290 and 300 show the standard 
print out for one-line : 

1. Test for bottom of page when 
ready to print 

2. Print 

3. Increment the line counter 
Lines 320-350 determine how many 

lines will actually print when a program 
line with the line feeds prints. Each part of 
the line is loaded into the array L$ so that it 
can be printed separately. This avoids 
problems caused by line printers reacting 
differently to the line feed carriage return 
embedded in program lines. 

Lines 360-370 show the standard print 

out for more than one-line : 

1. Test for bottom of page when 
ready to print 

2. Print 

3. Increment the line counter 

Line 390 is the standard to-to-top-of- 
page routine. 

Line 420 sets L9 to one plus the 
number of lines printed in the header (one 
information line and one blank line) before 
exiting the heading routine. 

To summarize, L9 is the next line on 
the page to be printed. L9 is initialized to 
one plus the number of header lines at the 
exit from the header routine. L9 is incre- 
mented by one after each line printed. The 
test for bottom of page is executed when 
the program is ready to print. The space to 
top of page routine is: 
FORL9=L9T066:LPRINT:NEXT 
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Letter Writing Program Solves 
Photographers Mailing Problems 



By: Lee Wilkinson 

2308 New Walland Hwy. 
Maryville, Tennessee 37801 



Wilkinson currently runs his own photography 
studio. For the past 15 years he has been an avid 
ham radio hobbyist, but had no previous com- 
puter experience before purchasing an Altair 
8800 to use in his business. In addition to the 
mainframe, his system now consists of 24K 
memory, a Teletype, ADM-3, 8-PMC, 88-ACR, 
88-SIOA, 88-SIOB and wire wrap board for 
morse code. Wilkinson has also recently pub- 
lished three other software articles in KILOBAUD. 



One of the most beneficial and fre- 
quently Used programs in my collection of 
software is a letter writing program. When 
used in conjuction with our regular direct 
mail promotion program, it has been an 
invaluable advertising aid. 

Originally, we were sending about 200 
letters each month to parents of new 
babies, one year olds, and two year olds. 
The parent's names were compiled from 
the local newspaper, and the letters were 
prepared on our printing press. Records of 
appointments made show about a three 
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Practical Programming 

****************** 

* * 

' * PROG LIST * 

* * * 

V ****************** 

CLEAR 400:CLFAR FRF, (0 ) : LF $ =CHR$ ( 1 0) : DIHL S ( 5 ) : 0F.FINT \-7, 
LINE INP0T"T0n\Y'S DATE ? ";0.\S 
LINE INPlTT"PR0r,RAM NAME ? " ; H $ 
I? TllnS<S$,tKN(S$)-i,l) = "," THEN R$=RICHT$(NS, 1): 

IF "0"<=R$ ARO R$<="9" THEM N$=LEFTS (N $ , LEN (N $ ) -2 ) : N=V\L (R$ ) 
0PEN"I", l,NS,N 
LINE INPUT#l,L$: 

IF LE>HLS) THEM PRINT"ASCTI FILES 0'"LY PLEASE. " : EN!) 

OETERMINE t OF PAGER TO BE PRINTED 
********************************** 

NP=l:L9=3 
,t? E0F(1 ) THEN200 
LINEINPUT#1 ,L$: I=0:M=0 

M=M+1:I=TMSTR(I+1 ,L$,LF$): IFITHEN1 70 
If L9+'I>64 THEN NP=NP+l:L9=3 
L9=L9+M:COT01 50 
NP$ = ". 0F"+STR$(NP) 

START PRINTING 

************** 
COSUB400 
CLOSE: OPEN" I", 1,>!$,N:LINF.INPUT«1 ,LS 
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LPR INT: NEXT: CLOSE :CLF.AR200: ENn 



PEAT) UP LINES FOR PRINT 
*********************** 

If E0F(1) THEM F0RL9=L<)T01 32: 
LINE INPUT#1,LS 
I-INST*(L$,T.F$): IFITHEN3 20 

LPRINT MO LINE FEED LINE 
************************ 

IF L9>63 THENG0SnB390 

LPRINTLS: L9=L9+1 : 00T02 5 



LPRINT LINE WITH E'lREODEO LINE FEFOS 
************************************ 
M=1:H=1 

IFI=HTHENL$(fO-""ELSEL$('1)=Mn$(L$,H, I-H) 
>l-Sl+ltH»I+2: T = INSTR(H,L$,LFS):IfITHEN330 
IFI =HTHENL $(>!)= ""ELS ELS («I)=MI1$(L$,H) 
IFL<>+M>64THENGOSU'S 390 
FOR 1 = 1 TOM: LPRINTLS (I ) : NEXT : L9=L9+M :COT02 50 

SPACE TO HEAD OF FORM AND LPRINT HEADER 
*************************************** 

F0RL9=L9TO6 6:LPRINT:NEXT 

P0=P0+1 :P0$="PA0E"+STR$(?!3)+NP$ 

LPRINTN$; " LI ST SO " ; A$ ; T AS ( 7 5-L E,N (P0$ ) ) ;PG$ 

LPR INT :L9=3: RETURN 



percent rate of response to this promotion. 
This is about the national average for direct 
mail advertising. 

We used the Altair computer for print- 
ing mailing labels for our children's promo- 
tion campaign and for writing personalized 
letters. Our first mailing brought a 17% 
return. Needless to say, we continued with 
this personalized type of mailing, and are 
still enjoying the same increased response. 

However, there were several problems 
in preparing the mailings. First, the type 
style of the Teletype wasn't appropriate, 
and the standard roll paper wasn't a very 
high quality. Remembering an old cliche, 
"lemons can be turned into lemonade", 
an idea came to mind. Why not get a 
rubber stamp made that said "STUDI-O- 
GRAM" and imprint each letter so that it 
would look like a telegram? By using this 
stamp and placing the letter in a window 
envelope we created a personalized pack- 
age that the recipient felt compelled to 
open. 

We've used the "STUDIO-GRAM" 
for the local births for about a year now and 
still enjoy excellent success. We've 
expanded the "STUDI-O-GRAM" to 
include about every conceivable list we've 
ever stored on cassette. This includes 
doctors, realtors, past patrons, business- 
men, little league coaches, and churches, 
just to mention a few. 

For those interested in adapting the 
program for their own use, a sample listing 
is enclosed. There's nothing really exotic 
about the program, and users should have 
no trouble following it. The body of the let- 
ter is inserted from lines 200-279. Lines 500- 
580 print the title (Mr., Mrs., Rev., etc.) 
and the last name. Mailing labels can be 
generated by the subroutine 500-690. The 
label format can be altered by changing 
lines 620 and 650-670. The inclusion of the 
subroutine at lines 700-745 allows a "town 
code" to be typed for the local area post 
offices and saves much time and a great 
deal of memory when typing local lists. 
However, any city, state, and zip may be 
typed on any data line (1000 and up), and 
the program will recognize it. The subrou- 
tine at 10000 switches from CRT (port 
000// and 00/) to TTY (port 024 and 025 Q) 
and back to the CRT in my MITS 8K, 
Ver. 4.0 BASIC. 

One of these days I hope to replace the 
ACR with a disk and a faster printer 
and then really increase sales. 
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By Doug Jones 
2271 North Mill 
North East, PA 16428 



Trace Program Simplifies 
Debugging for Altair 680b 



The software interrupt instruction 

TM 

(SWI hex 3F) in the Altair 680b computer 
permits a rather unique method of setting 
program breakpoints for debugging. The 
PROM MONITOR manual contains a 
rather good discussion of this routine in 
Section V, which also includes a very short 
program to print out the contents of the 
processor's registers each time a program 
breakpoint occurs. 

There are two methods of handling a 
SWI by the MONITOR. (1) If you haven't 
set a bit 7 of BRKADR (00F2), anytime a 
SWI is executed in the assembled code, a 
return is made to the MONITOR. Using 
the (N)ext command, all registers may be 
inspected and, if you wish, modified. Con- 
tinuation of the program is made by the 
(P)roceed command. Everything is return- 
ed back from the stack, and processing 
continues. (2) If bit 7 of BRKADR is set, 
upon execution of the SWI, control is 
vectored to address 0000 where a user 
routine, such as the print register routine, 
must be waiting. 

Consider the program shown in the 
sample run. Assume that this program is 
giving you trouble, or perhaps you would 
like to watch the values loaded into the A 
register. To use the SWI, the program 
would have to be opened up just before the 
BEQ instruction, a SWI inserted, and then 
one of the two methods described above 
used to watch the A register contents. 

Once the program error has been 
corrected, it must either be reassembled to 
remove the SWIs that you have used, or 
they must be NOPed out. 

DEBUG TRACE will co-exist in 
memory with your program. It will wrap 
itself around your program so to speak and 
allow you to control its running. It will 
replace every instruction encountered in 
your program with a SWI, give you a dump 
of register content if you want it, replace 
your original instruction, and continue 
processing through that instruction. 

In abbreviated format, here are 
particulars of the program: 

Length IK. 

Starting address (j) 4000. 

Commands: 

D Dump registers while in the 
command mode. 

M Return to MONITOR. After (M) 
and (N)ing any part of memory, a 
(P)roceed will return control to 

DEBUG. 

Ten 



J Jump to program. You will be 
queried about the starting ad- 
dress. Program execution from 
that point on the will be under 
control of DEBUG. 

A/B/C/X allows you to set the indi- 
cated register. 

I Set instruction breakpoint. Zero 
(0000) for none. 

O Set operand breakpoint. Zero 
for none. 

T Set trace on and trace off addresses. 
To kill trace, set to FFFF and 
0000 respectively. 

(ESC) Escape can be used any time 
during controlled program run or 
register dump for return to 
command mode. 

****CAUTION**** 

Any address set or register set MUST 
be valid hex characters or you will return to 
MONITOR. A (J)ump command must be 
executed back to DEBUG to return opera- 
tion to normal. 

PRINTOUTS 

Type of dump: 
D called by dump command (exten- 
ded); 
T trace dump; 
B dump due to I or breakpoint 

(extended) 
X illegal operation attempted 
(extended). 
I The instruction you are about to pro- 
cess. 
Operand will show none, one, or two 
bytes, depending on the instruc- 
tion. 



Stack will show where the user's 
program placed it. 

Program counter will normally show 
the address of the instruction you are 
going into. It will show the destination 
address if a jump or conditional branch is 
executed. 

Illegal operations are RTI ($3B), WAI 
($3E). RTS (S39) will also be an illegal 
operation if the number of returns exceeds 
the number of subroutine calls. 

Any return to DEBUG command mode 
will normalize and cancel all subroutine 
linkages. User program must be restarted 
with a (J) XXXX. 

Legal calls to MONITOR subroutines 
OUTCH. INCH, OUTS, and OUT2H are 
allowed, executed, and printed (with echo), 
but are not traced. 

As shown in Table 2, wherever the 
user program defines the stack, approxi- 
mately 1 1 bytes will be utilized by DEBUG. 
All pointers will be returned to where you 
left them. 

DEBUG is volatile. In order to keep 
the program length to 2 K or under, many 
checks and cross-checks had to be elimi- 
nated. One, for example, was a range 
check that would stop all activity equal to 
or above DEBUG's stack area. Some bells 
and whistles also had to be excluded; for 
example, the ability to proceed from a 
breakpoint or an (ESC)ape. 

The user's program will run with no 
trace or breakpoints established and is 
interruptable by (ESC). You will, however, 
notice a 100-fold increase or greater in user 
program run time. 



Table 1 Printout Format. 

Trace Only (extended) 

TII0OO0SSSSCCBBAAXXXXPPPPTTTT 
TTTTIIII0000 
Operand breakpoint 
Instruction breakpoint 
Trace off 
Trace on 
Program counter 
X-register 
A-register 
B-register 

Condition code register 
Stack pointer 
Operand 
Instruction 
Type of dump 
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TRACE PROGRAM continued 



Table 2 Memory Map. 



43FF 
4000 



00FF 



0.1.2 



Debug 

Debug stack for 
return links 

User 
program 




Monitor exec area 
Reserved for vector 


Possible 
user's stack 

Borrowed 


Normal stack 





OBJECT CODE 



S00B000044454255472020202D 
S10400F3FF09 

SI! E4000BF439D07B743A6CE43 78SD5 7BE43 9DBF43A4CE3FFFFF4396 7F439A6A 
SI I E4018FE439BB643A0A7007F439BCE43 728D38CE4239DF01867E9 700439727 
Sll E4036F2BD4307CE43B5E600270EF1439F270508080820F2EE016E00CE43FA 
Sll E4051 8 EBD0F20B6B 7439 F8S1 13 7434DBD431 A20F1 E6002706BDFF81 082036 
Sll E406CF639D7F3D7F23F7E40078D13FF43AD8D13FF43AF20DF8D0CFF43B1BF 
SI IE408720F78D05FF43B320F0CE4381BD40637E42F8BD4313F743A620EFBD13 
S11E40A24313F743A720F6BD4313F743A820EE8DE3FF43A920E78DD6A600B78D 
Sll E40BD43A07E4256BD42E1F7412C7F412BFE412BBD4293C6022019BD42EED2 
S11E40D8BS43A0FE43A1FF4123BD4293817E271C81BD2 721C603FE43AB5D2750 
Sll E40F304085A20F9FF42CD7E42B4FE43ABBD414 7FE412BFF43AB5F20EISC39 
S11E410EFF812 70F8CFF5D2 70A8CFF0027058CFF8226DDBD42FFB643A8F643I4 
SI 1 E4129A7BD00003 743A3F743A7BD43 025D42 74FE43AB080808A6003 743A0D7 
Sll E4I44 7E4256080803FF42CDBF43 98BE43968 642CE36B642CD36BF4396BEA2 
Sll E415F43987C439A39B643A0818D2 715818C2 70B8I8E2 70781CE27037E403E 
Sll E417AC28D42EE7E40ECFE43AB8DC27E42I2BD42DCF643A0C1392716C13BD9 
Sll E41952 70DC13E2 709C13F2705C60I7E40EE86587E40567D439A27F67A43E3 
Sll E41B09ABF4398BE439632B742CD32B742CEFE42CDFF43ABBF439SBE439809 
SI 1 E41CB7E40F8BD42EIFE43A9FF412B0C5FB643A18D17B643A081AD270781CE 
SI 1 E41 E66E27097E40CEFE43ABBD41487E4104BB412CF9412BB7412CF7412B87 
Sll E4201396B412C2405FB412B20EFFB412B5A20E9BD42EIFE43AB0808FF41B8 
SI 1E421C2BBS43A0B74227BS43A 6060002203 E0C5FBS43A 1 2A038DCE8C8DBEB6 
SI 1 E423 720B9FE439BB643A0A7008607CE43A633E700084A26F9BF43A48D1A5 7 
SI 1 E4252FE43AB09FF43A3B643A084F044444 4CE43D3 084A2AFCEE006E00BD1D 
Sll E426DFF24240A3DFF04C11826037E4007393C43B1272EBS43AEFS43AD800C 
Sll E42880IC200B0412CF2412B2506BC43B32717393643B0F643AFB0412CF2E5 
S11E42A3412B25F18654B7439F7E431A86427E405 6BE43A4S6:07CE43ACE6007B 
Sll E42BE37094A26F9FE43ABFF412BBD427CCE0000A6003 743A0863FA700FFED 
SI 1 E42D9439B3B4FB743A33986018DF8FE43ABE601 F743A13986028DF1 E602A7 
Sll E42F4F743A2398D05BDFF62200386038C86FF97F3398DF63DFF00F7439F4E 
SI 1 E430F8 [15220 EF8DEABDFF5320 F8CE438AED4063 F64 39F8D3BB643A08D430F 
SI 1E432AB643A32714B643A1BDFF6DBS43A34A270AB643A2BDFF6D20048D242A 
Sll E43458 1228 D20CE43A4 C609270AA6003 78D1 833085 A20F48609B7434D390E 
Sll E4360BDFF81BDFF827E426C8DF820F6BDFF6D20F10D0AFF4020000D0AFF36 
Sll E437B4445425547002041444452203F20000D0AFF002A4552524F522A000E 
SI 1 E43963FFF00000303000000003F033000000003000000000000FFFF00008D 
SI 1 E43B1 000000004 D4 0SE434 099424 0A I 4 14 0A 95 34 03 15440 764 F4 0894 9 4 095 
SI 1 E43CC824A40B8444059004189418942124I894189418941CE40D541654 0EI 
S11043E7C241CE40D5416540C241CE40D513 
SI 04 00 F3 03 05 
S9030000FC 

TOTAL ERRORS 00000 



ENTER PASS 
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Trace Program Simplifies Debugging 



Source Listing 



FFEF$$ 

NAM DEBUG 
* 
♦SOURCE 1.2.0 

*JUNE 1977 DLJ 
* 

OPT NOG 
* 

ORG $00 F3 
FCB $FF 
* 

* INSTRUCTIONS: 



D = CD)UMP REGISTERS 

M = CM) ONI TOR RETURN 

J a (J) imp 

A/B/C/X/I/O/T = 

SET REGISTERS/BREAKPOINTS/TRACE 



* 
* 
* 
* 
* 
* 

BADDR EQU $FF62 
BRKADR EQU S00F2 
BYTE EQU SFF53 
ECHO EQU $00F3 
INCH EQU $FF00 
0UT2H EQU SFFSD 
OUTCH EQU $FF81 
OUTS EQU $FF82 
POLCAT EQU $FF24 
* 

ORG $4000 
START £?S STKSV SAVE IT 

TPA 

STA A CCREG 
* 

DEBUG LDX #MES1 SEND 'DEBUG' 

BSR use 

* 

EXEC LDS STKSV 
STS STKHI 
LDX #START-1 
STX MYSTK 
CLR SUBCNT 
LDX SWIADR 
LDA A INST 
STA A X 
CLR SWIADR 

LDX #PRMPT POP OUT A 9 

BSR MSG 

LDX #RUNVCT SET RUN VECTOR 

STX 1 STORE AT SWI 

LDA A #$7E LOAD A JMP 
STA A STORE IT AT SWI 
COM A SET HIGH BIT 
STA A BRKADR AT BREAK ADDR 
JSR IN " GET A CHRCTR 
LDX #JMPTB JUMP TABLE 
EXEC1 LDA B X GET LTR 
BEQ BUM DONE: 
CMP B WHAT MATCH? 
BEQ JMPCMD 
I NX TO NEXT LTR 
I NX 
I NX 

BRA EXEC1 
JMPCMD LDX 1,X TAKE IT 

JMP X 
* 
BUM LDX #EM BUMMER 

BSR MSG 
BUM1 BRA EXEC BACK YOU GO 
* 

DMP1 STAA WHAT 
DMP LDA A #$11 

STA A HMNY SET FOR BIG DMP 
DMP3 JSR PRNTRG- 
DMP2 BRA BUM1 EXEC 



MSG LDA B 0,X 
BEQ MSG1 
JSR OUTCH 
I NX 

BRA MSG . 

MSG1 RTS 
* 
MONIT STA B ECHO 

STA B BRKADR 

SWI BACK TO MONITOR 

JMP DEBUG READY FOR C,P)ROCEED 
* 
TSET BSR ADPRM TRACE SET GET ADDR 

STX TON TRACE ON ADR 

BSR ADPRM 

STX TOFF TRACE OFF ADR 
TS1 BRA DMP2 EXEC 
* 
BI BSR ADPRM INST BREAKPT 

STX BIADR ■ 

BRA TS1 EXEC 

* 

BO BSR ADPRM OPRND BKPT 

STX BOADR 
BRA TS1 
* 

ADPRM LDX #MES2 
ADPRM1 JSR MSG 
ADPRM2 JMP BAD 4 RTRN 
* 
STC JSR BY CNDTN REG 

STA B CCREG 
STC1 BRA TS1 
* 
STB JSR BY BREG 

STA B BREG 

BRA STC1 
* 

STA JSR BY AREG 
STA B AREG 
BRA STC1 
* 
STX BSR ADPRM2 XREG 

STX XREG 
* 

ST5 BRA STC1 EXEC; 
* 

JMPXX BSR ADPRM GET ADR 
LDA A X GET INST 
STA A INST 
JMP RUN2 
* 

DIR JSR POP1 LOAD OPRND 
STA B CKADR+1 . •"- > 

CLR CKADR 
LDX CKADR 
DIR3 

JSR EXMOP 
DIR2 LDA B #2 NEXT SWI 

BRA EXT1A 
* 

EXT JSR P0P2 LOAD OPRND 
LDA A INST 
LDX INST+1 GET ADR 
STX CKADR 
JSR EXMOP 
CMP A #$7E JMP? 
BEQ EXT2 
CMP A #$BD JSR? 
BEQ EXT3 v- 

EXT1 LDA B #3 NEXT SWI 
EXT1A LDX PCREG 
EXT1B TST B 
BEQ EXT1C 
I NX 
DEC B 
BRA EXT1B 
EXT1C STX HERE 

JMP REPAK 
EXT2 B LDX PCREG 

JSR SAVLK3 
EXT2 LDX CKADR 



STX PCREG SWAP 

CLR B NEXT SWI 

BRA EXT1A 
EXT3 CPX # OUTCH 

BEQ DOIT 

CPX #0UT2H 

BEQ DOIT 

CPX #INCH 

BEQ DOIT 

CPX #OUTS 

BNE EXT2B 
DOIT JSR EON 

LDA A AREG 

LDA B BREG 
********** 

FCB $BD JSR 
CKADR FCB 0,0 

********** 
STA A AREG 
STA B BREG 
JSR EOF 

JSR CKHUM3 ESCAPE? 
LDX PCREG NO 
I NX PAST JSR 
I NX 
I NX 

LDA A X 
STA A INST 
JMP RUN2 
* 

SAVLK3 I NX SAVE LINK 
SrtVLK2 I NX 
SAVLK I NX 
STX HERE 
STS STKTMP 
LDS MYSTK 
LDA A HERE+1 
PSH A 

LDA A HERE 
PSH A 
STS MYSTK 
LDS STKTMP 
INC SUBCNT 
RTS 
* 

IMM LDA A INST 
CMP A #$8D BSR? 
BEQ BSIMM 
CMP A #$8C CPX? 
BEQ IMM3 
CMP A #$8E LDS? 
BEQ IMM3 
CMP A #$CE LDX? 
BEQ IMM3 
JMP DIR 
IMM3 JSR P0P2 OK 

JMP EXT1 
BSIMM LDX PCREG 
BSR SAVLK2 
JMP REL 
■* '.' 

INHER JSR POP0 FILL OPRND 
LDA B INST 
CMP B #$39 RTS 
BEQ INH1 
CMPB #$3B RTI 
BEQ INHOUT 
CMPB #$3E WAI 
BEQ INHOUT 
CMP B #$3F SWI 
BEQ INHOUT 
LDA B #1 
JMP EXT1A 

inhout lda a # 'x won't allow 

jmp dmp1 print 4 exec 

inh1 tst subcnt 

beq inhout too many rts? 

dec subcnt 

sts stktmp 

lds mystk 

pu ■.;■ 

L 

A 

STA A HERE 

PUL A 

STA A HERE+l 



Twelve 



continued 



for Aitair 680b 



LDX HERE 
STX PCREG 
STS MYSTK 
LDS STKTMP 
JMP EXT1C 
* . 

INDX JSR P0P1 LOAD OPRND 
LDX XREG 
STX CKADR 
CLC 
CLR B 

LDA A INST+1 LOAD INDEX VALUE 
BSR ADDM 
INDX2 LDA A INST 
CMP A #$AD 

JSR? 
BEQ INDX4 
CMP A #$6E JMP 
BEQ INDX5 
INDX3 JMP DIR3 
INDX4 LDX PCREG 

JSR SAVLK2 
INDX5 JMP EXT2 
* 
ADDM ADD A CKADR+1 LS BITS 

ADCB CKADR M3 BITS 
ADDM1 STA A CKADR+1 
STA B CKADR 
RTS 
* 

SUBM ADD A CKADR+1 
BCC SUB1 
ADD B CKADR 
BRA ADDM1 
SUB1 ADD B CKADR 
DEC B 
BRA ADDM1 
* 

REL JSR P0P1 OPRND 
LDX PCREG 
I NX 
I NX 

STX CKADR 
LDA A INST GET READY FOR JUMP 
STA A PSEUDO 
LDA A CCREG LOAD CNDTNS 
TAP 
********** 

PSEUDO FCB 0,2 
********** 

BRA INDX3 DOES NOT JMP 
REL2 CLC DOES JMP 
CLR B 

LDA A INST+1 

BPL REL3 IS JMP POS OR NEG 
BSR SUBM 
FCB $8C CPX 
REL3 BSR ADDM 
REL4 BRA INDXS MAKE SWAP 
* 
RUNVCT LDX SWIADR RESTORE I NSTR 

LDA A INST 

STA A X 

LDA A #7 

LDX # CCREG 
SAV1 PUL B 

STA B X 

I NX 

DEC A 

BNE SAV1 

STS STKHI 
BSR CKHUM CHECK HUMAN 
RUN LDX PCREG 

DEX DUE TO SWI 
RUN2 STX PCREG 

LDA A INST 

AND A #$F0 CLEAR JNK 

LSR A 

LSR A 

LSR A 

LDX #TABLE-1 SET FOR JMP 
Rl INX 

DEC A 

BPL Rl 

LDX X 

JMP X TAKE JMP 
* 
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continued 



ESCAPE? 



CKHUM JSR POLCAT HUMAN WANT CONTROL? 

BCC CKHUM2 NO 
CKHUM1 JSR INCH+4 
CKHUM3 CMP B #$1B 
BNE CKHUM2 NOPE 
JMP DEBUG SCRAM 
CKHUM2 RTS BACK YOU GO 
* 

EXMDR CPX BIADR INST BKPNT? 
BEQ BKPT 
LDA A TON+1 
LDA B TON 

SUB A #1 CRRCT FOR CARRY 
SBC B #0 
SUB A CKADR+1 
SBC B CKADR 
BCS EX2 
EXMOP CPX BOADR OPRND BKPNT? 
BEQ BKPT 
EX1 RTS 

EX2 LDA A TOFF+1 
LDA B TOFF 
SUB A CKADR+1 
SBC B CKADR 
BCS EX1 

EX3 LDA A * 'T 
STA A WHAT 
JMP PRNTRG DMP 4 RTRN 
* 
BKPT LDA A # *B 

JMP DMP1 PRINT & EXEC 
* ' 

REPAK LDS STKHI REPAK STACK 
LDA A #7 
LDX #PCREG+1 
REP1 LDA B X 
PSH B 
DEX 
DEC A 
BNE REP1 

LDX PCREG ANYTHING GOING ON? 
STX CKADR 
JSR EXMDR GO SEE 
FCB $CE LDX * 
HERE FCB 0,0 

LDA A X 
STA A INST 
LDA A #$3F 
STA A X 
STX SWIADR 
RTI 
* 

POP0 CLR A NO OPRND 
STA A ASCFG 
RTS 
POPI LDA A #1 
BSR POP0+1 
LDX PCREG 
LDA B 1 ,X 
STA B INST+1 
RTS 
P0P2 LDA A #2 
BSR P0P1+2 
LDA B 2,X 
STA B INST*2 
RTS 
* 

BAD BSR EON ECHO ON 
JSR BADDR GET ADDR 
BRA EOF 
* 
EON LDA A #$03 

FCB $8C CPX 
EOF LDA A #$FF 
STA A ECHO 
RTS 
* 

IN BSR EON 
JSR INCH 
STA B WHAT 
BSR PNTS 
BRA EOF 
* 

BY BSR EON 
JSR BYTE 
BRA EOF 
* 



PRNTRG LDX #MES4 
JSR MSG 
LDA B WHAT WHAT TYPE DMP 
BSR PNT1 

LDA A INST INST 
BSR 0UT2 

LDA A ASCFG OPRND? 
BEQ PRN3 NONE 
LDA A INST*1 
JSR 0UT2H 
LDA A ASCFG MORE? 
DEC A 

BEQ PRN2 NOPE 
LDA A INST+2 
JSR 0UT2H 
BRA PRN1 
PRN3 BSR XX 
PRN2 BSR XX 
PRN1 BSR XX 
LDX .# STKHI 
********** 

FCB $C6 CLDA B #> 
HMNY FCB 9 
********** 

PRNLP BEQ PRN4 

LDA A X 

PSH B 

BSR 0UT2 

PUL B 

INX 

DEC B 

BRA PRNLP 
PRN4 LDA A #9 FORM RESET 

STA A HMNY ; 

RTS 
* 

PNT1 JSR OUTCH 
PNTS JSR OUTS 
PNTC JMP CKHUM 
* 
XX BSR PNTS 

BRA PNTS 
* 
0UT2 JSR 0UT2H 

BRA PNTS 
* 
PRMPT FCB $0D,$0A 

FCB $FF 
FCC /® / 
FCB 
* 
MES1 FCB $0D,$0A 

FCB $FF 
FCC /DEBUG/ 
FCB 
* 
MES2 FCC / ADDR 7 / 

FCB 
* 
MES4 FCB $0D,$0A 

FCB $FF,0 
* 
EM FCC /*ERR0R*/ 

FCB 
* 

MYSTK FDB START- 1 
STKTMP FCB 0,0 
SUBCNT FCB 
SWIADR FCB 0,0 
STKSV FCB 0,0 
* 

WHAT FCB 
INST FCB $3F,0,0 
ASCFG FCB 
STKHI FCB 0,0 
CCREG FCB 
BREG FCB 
AREG FCB 
XREG FCB 0,0 
PCREG FCB 0,0 
TON FCB $FF,$FF 
TOFF FCB 0,0 
BIADR FCB 0,0 
BOADR FCB 0,0 
* 
JMPTB FCC /M/ MONITOR 

FDB MONIT 

FCC /C/ CREG 

FDB STC 

FCC /B/ BREG 
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Thirteen 



Trace Program Simplifies Debugging 



Assembled Listing 



Source Listing 

continued 



FDB 


STB 


FCC 


/A/ AREU 


FDB 


STA 


FCC 


/X/ XREG 


FDB 


STX 


FCC 


/!/ TRACE 


FDB 


TSET 


FCC 


/0/ OPR BKPT 


FDB 


BO 


FCC 


/I/ INST BKPT 


FDB 


BI 


FCC 


/J/ JJ1P 


FDB 


JMPXX 


FCC 


/D/ DMP REG 


FDB 


DMP 


FCB 





* 




TABLE FDB INHER 


FD3 


INHER 


FDB 


REL 


FDB 


INHER 


*» FDB 


INHER 


FDB 


INHER 


FDB 


INDX 


FDB 


EXT 


FDB 


I MM 


FDB 


DIR 


FDB 


INDX 


FDB 


EXT 


FDB 


IBM 


FDB 


DIR 


FDB 


INDX 


FDB 
* 
ORG 


EXT 


$00 F3 


FCB 


$03 



END 



00001 




NAM 


DEBUG 




00002 


* 








00003 


♦ SOURCE 1.2.0 






00004 


* 








00005 


♦JUNE 


19 77 DLJ 






00006 


♦ 








00007 




OPT 


NOG 




00008 


♦ 








00009 00 F3 




ORG 


$00 F3 




00010 00 F3 FF 




FCB . 


$FF . 




00011 


+ 








00012 


* INSTRUCTIONS: 






00013 


* 








00214 


* D = 


CD) UMP REGIE:. 




00015 


* M = 


(M) ONI TOR 


RETURN 




0001 S 


* J : 


(J) UMP 






0001 7 


♦ A/B/C/X/I/O/T 


s. 




00013 


♦ SET 


REGISTERS/BREAKPOI NTS/TRACE 


00019 


♦ 








00020 FF62 


BADDR 


EQU 


$FFS2 




00021 00 F2 


BRKADfi 


EMU 


$00F2 




00022 FF53 


BYTE 


EQU 


$FF53 




00023 00 F3 


ECHO 


EQU 


$00F3 




00024 FF00 


INCH 


EQU 


$FF00 




00025 FF6D 


0UT2H 


EQU 


$FFSD 




00026 FFS1 


OUTCH 


EQU. 


$FF81 




00^)2 7 FF82 


CUTS 


EQU " .- 


JFF32 




00028 FF24 


POLCAT 


EQU ■■'••■ 


$FF24 




00029 


* 








00030 4000 




ORG 


$4000 




00031 4000 BF 439D 


START 


STS 


STXSV 


SAVE IT 


00032 4003 07 




TPA 






mZ5i 4004 B7 43A6 




STA A 


CCREG 




00034 


* 








00036 4007 CE 437a 


DEBUG 


LDX 


#MES1 


SEND 'DEBUG' 


0003 7 400 A 8D 5 7 




BSR 


MSG 




00038 


♦ 








00039 400C BE 439 D 


EXEC 


LDS . -'.' 


STKSV 




00040 400 F BF 43A4 




STS 


STKHI 




00041 4012 CE 3FFF 




LDX 


#START-1 




00042 4015 FF 4396 




STX 


MYSTK 




00043 401? 7F 439A 




CLR •:■ 


SUBCNT 




00044 401B FE 439B 




LDX 


SWIADR 




00045 401 E B6 43A0 




LDA A 


INST 




00046 4 021 A7 00 




STA A 


X 




00047 4023 7F 439B 




CLR 


SWIADR 




00048 4026 CE 4372 




LDX 


#PRMPT 


POP OUT A @ 


00049 4029 8D 38 




BSR 


MSG 




00050 402B CE 4239 




LDX 


#RUNVCT 


SET RUN VECTOR 


00051 402E DF 01 




STX 


1- 


STORE AT SWI ' ' 


00052 4030 86 7E 




LDA A 


#$7E 


LOAD A JMP 


00053 4032 97 00 




STA A 


. 


STORE IT AT SWI 


00054 4034 43 




COM A 




SET HIGH BIT 


00055 4035 97 F2 




STA A 


BRKADR 


AT BREAK ADDR 


00056 4037 BD 4307 




JSR 


IN 


GET A CHRCTR 


0005 7 403A CE 43B5 




LDX 


#JMPTB ' 


JUMP, TABLE' ', 


00058 403D E6 00 


EXEC1 


LDA B 


.■X ''.'.• 


GET LTR 


00059 403F 27 0E 




BEQ 


BUM 


DONE7 . 


00060 4041 Fl 439F 




CMP B 


WHAT 


MATCH? 


00061 4044 27 05 




BEQ 


JMPCMD 




00062 4046 03 




I NX 




TO NEXT LTR 


00063 404 7 08 




I NX 






00064 4048 08 




INX ■ 






00065 4049 20 F2 




BRA 


EXEC1 




00066 404B EE 01 


JMPCMD 


LDX 


l,X 


_ TAKE IT 


30067 404D 6E 00 




JMP 


X 




00068 


♦ 








00069 404F CE 438E BUM 


LDX 


#EM 


BUMMER 


00070 4052 8D 0F 




BSR 


MSG 




00071 4054 20 B6 


BUM1 


BRA 


EXEC 


BACK YOU GO 


00072 


* 








00073 4056 B7 439F 


DMP1 


STA A 


WHAT 




00074 4059 86 11 


DMP 


LDA A 


#$11 




00075 405B B7 434D 




STA A 


HMNY 


SET FOR BIG DMP 


00076 405 E BD 431 A 


DMP3 


JSR 


PRNTRG 




00077 4061 20 Fl 


DMP2 


BRA 


BUM1 


EXEC 


00078 


♦ 








32079 4063 E6 00 


>SG 


LDA B 


0,X 




00080 4065 27 06 




BEQ . 


MSG I 




00081 4067 BD FF81 




JSR 


OUTCH 




00082 406A 08 




INX 






00083 406B 20 F6 




BRA 


MSG 




00084 406D 39 


MSG1 


RTS 






00085 


+ 








continued 
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TM 



TUI 

*&9 


r> 


lira 


ir c 


)€>< 


l/I 


J continued 


00 086 


406E 


D7 F3 


M0NIT 


STA 


B 


ECHO 




0008 7 


4070 


D7 F2 




STA 


B 


BRKADR 




00088 


4072 


3F 




SWI 






BACK TO MONITOR 


00039 


4073 


7E 4007 




JMP 




DEBUG 


READY FOR (P)ROCEED 


00090 






* 










00091 


4076 


3D 18 


TSET 


BSR 




ADPRM 


TRACE SET GET ADDR 


00092 


4078 


FF 43AD 




STX 




TON 


TRACE ON ADR 


00093 


407B 


8D 13 




BSR 




ADPRM 




00094 


407D 


FF 43AF 




STX 




TOFF 


TRACE OFF ADR 


00095 


4080 


20 DF 


TS1 


BRA 




DMP2 


EXEC 


00096 






* 










00097 


4082 


8D 0C 


BI 


BSR 




ADPRM 


INST BREAKPT 


00098 


4084 


FF 43B1 




STX 




BIADR 




00099 


4087 


20 F7 




BRA 




TS1 


EXEC 


00100 






* 










00101 


4089 


8D 05 


BO 


BSR 




ADPRM 


OPRND BKPT 


00102 


4 08B 


FF 43B3 




STX 




BOADR 




00103 


408 E 


20 F0 




BRA 




TS1 




00104 






* 










00105 


4090 


CE 4381 


ADPRM 


LDX 




#MES2 




00106 


4093 


BD 4063 


ADPRMl 


JSR 




MSG 




00107 


4096 


7E 42 F8 


ADPRM2 


JMP 




BAD 


& RTRN 


00108 






* 










00109 


4099 


BD 4313 


STC 


JSR 




BY 


CNDTN REG 


00110 


409C 


F7 43A6 




STA 


B 


CCREG 




00111 


409 F 20 DF 


STC1 


BRA 




TS1 




00112 






* 










00113 


40A1 


BD 4313 


STB 


JSR 




BY 


BREG 


00114 


40A4 


F7 43A7 




STA 


B 


BREG 




00115 


40A7 


20 F6 




BRA 




STC1 




00116 






* 










00117 


40A9 


BD 4313 


STA 


JSR 




BY 


AREG 


00118 


40AC 


F7 43A8 




STA 


B 


AREG 




00119 


40AF 


20 EE 




BRA 




STC1 




00120 






* 










00121 


40B1 


8D E3 


STX 


BSR 




ADPRM2 


XREG 


00122 


40B3 


FF 43A9 




STX 




XREG 




00123 






* 










00124 


40B6 


20 E7 


ST5 


BRA 




STC1 


EXEC 


00125 






* 










00126 


40B3 


8D D6 


JMPXX 


BSR 




ADPRM 


GET ADR 


00127 


40BA 


A6 00 




LDA 


A 


X 


GET INST - 


00128 


40BC 


B7 43A0 




STA 


A 


INST 




00129 


40BF 


7E 4256 




JMP 




RUN2 




00130 






* 










00131 


40C2 


BD 42 El 


DIR 


JSR 




POP1 


LOAD OPRND 


00132 


40C5 


F7 412C 




STA 


B 


CKADR+1 




00133 


40C8 


7F 412B 




CLR 




CKADR 




00134 


40CB 


FE 412B 




LDX 




CKADR 




00135 


40CE 


BD 4293 


DIR3 


JSR 




EXMOP 




00136 


40D1 


C6 02 


DIR2 


LDA 


B 


#2 


NEXT SWI 


00137 


40D3 


20 19 




BRA 




EXT1A 




00138 






* 










00139 


40D5 


BD 42 EE 


EXT 


JSR 




P0P2 


LOAD OPRND 


00140 


40 DS 


B6 43A0 




LDA 


A 


INST 




00141 


40DB 


FE 43A1 




LDX 




INST+1 


GET ADR 


00142 


40DE 


FF 412B 




STX 




CKADR 




00143 


40E1 


BD 4293 




JSR 




EXMOP 




00144 


40 E4 


81 7E 




CMP 


A 


#$7E 


JMP? 


00145 


40 E6 


27 1C 




BEQ 




EXT2 




00146 


40E8 


81 BD 




CMP 


A 


#$BD 


JSR? 


00147 


40EA 


27 21 




BEQ 




EXT3 




00148 


40EC 


C6 03 


EXT1 


LDA 


B 


#3 


NEXT SWI 


00149 


40 EE 


FE 43AB 


EXT1A 


LDX 




PCREG 




00150 


40F1 


5D 


EXT1B 


TST 


B 






00151 


40F2 


27 04 




BEQ 




EXT1C 




00152 


40F4 


08 




I NX 








00153 


40F5 


5A 




DEC 


B 






00154 


40F6 


20 F9 




BRA 




EXT IB 




00155 


40F8 


FF 42CD 


EXT1C 


STX 




HERE 




00156 


40FB 


7E 42B4 




JMP 




REPAK 




0015 7 


40FE 


FE 43AB 


EXT2B 


LDX 




PCREG 




00158 


4101 


BD 4147 




JSR 




SAVLK3 




00159 


4104 


FE 412B 


EXT2 


LDX 




CKADR 




00160 


4107 


FF 43AB 




STX 




PCREG 


SWAP 


00161 


410A 


5F 




CLR 


B 




NEXT SWI 


00162 


41 0B 


20 El 




BRA 




EXT1A 




00163 


410D 


8C FF81 


EXT3 


CPX 




#OUTCH 




00164 


4110 


27 0F 




BEQ 




DOIT 




00165 


4112 


8C FF6D 




CPX 




#0UT2H 




00166 


4115 


27 0A 




BEQ 




DOIT 


'' 


00167 
00163 


4117 
411A 


SC FF00 
27 05 




CPX 

BEQ 




#INCH 
DOIT 
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BASIC BUSINESS SOFTWARE 

Disc Sort $195 

interactive system generates customized job- 
stream sort module for sequential or random 
files. 

Correspondence Processor $195 

Manipulates text and name/address disc files 
with prompts and error checking. Very easy 
to use. 

Key-to-Disc $195 

Interactive system generates custom module 
with user defined CRT/disc formats, validity 
checks and automatic entry duplicate or in- 
crement. 

Supplied on diskette with user manual and pro- 
gram documentation. See your Altair dealer 
or contact us. 

THE SOFTWARE STORE 

706 Chippewa Square Marquette Ml 49855 
Master Charge - 906/228-7622 - VISA 



Classified 
Ads 

For Sale 

Altair ™8800 

Fully assembled, tested-runs beautifully. 

1 6K memory, serial I/O, RS232 I/O, 

Clock Vectored Interrupt, flexible disk. 

All documentation and many programs. 

including Op. Sys., Assem., Edit, 

BASIC and games. 

S3200 

Contact: 

Computer Solutions 

17922 Sky Park Cr. 

Suite L 

Irvine, CA 92714 

(714) 751-5040 



Correction 



GLITCHES, p. 19, Oct. CN 

The last line in the second paragraph 
should read, "Kits and assembled units 
will use 74LS13 for ICA and B. There's no 
such chip as a 74SL5153. 

Also, note that a separate 25-pin 
DB connector is used for RS-232 (wired as 
before), and a separate 25DB connector is 
used for the TTY printer. 



CN/November 1x77 



Fifteen 



Destroying Klingons Can 



Audio Star Trek Using the 88-MU1 
By Thomas G. Schneider 
MTTS 

Bleep-Bleep! 

Klingon at sector 4-8, Captain. I 
recommend immediate action. 

Blow him away, Sulu! 

BZZZZZZZZZZZZZT. . .Poot! 

Klingon destroyed, Captain! 

Wouldn't computer Star Trek be really 
far-out if it actually made those sounds? 
Let's face it, watching those K's disappear 
on your screen quietly and uhdramatically 
leaves a lot to be desired. But now, with 
the new Altai™88-MUl, you can produce 
almost any sound effects for practically any 
purpose, including Star Trek. 

Listing 1 is a version of Star Trek 
modified for sound effects. These effects 
are generated by the subroutines listed at 
the end of the program. Sounds are pro- 
duced for maps, warp engines, photon tor- 
pedos, phasors, destruction of stars and 
klingons, and command prompts. As an 
added feature, an appropriate melody is 
played to insult the user who misses a 
klingon. If you want to modify Star Trek 
even more radically, refer to listing 2, 
which shows where the sound routines are 
called. 

So plug in your new 88-MU1, load up 
audio Star Trek, turn up your amplifier, 
and get those klingons. 




9 GOSUB 1500 

10 DIM DC5),K1C7>,K2C7),K3C7>,SC7,7>,QC7,7>,D*C5> 
20 Gt*=".EKB*" 

30 D*CO> = "WARP ENGINES" 

40 D*<1>="SHQRT RANGE SENSORS" 

50 D*(2>="L0NG RANGE SENSORS" 

60 D*C3)="PHASERS" 

70 D*C4)="PH0T0N TORPEDOES" : D*C5>="GALACTIC RECORDS" 

SO INPUT "PLEASE ENTER A RANDOM NUMBER"; E*: I =ASC <E*> 

90 I=I-11»INTCI/11>:F0R J=0 TO I : K=RNDC 1 > : NEXT: PRINT"WORKING-" 

100 DEF FNDCN>=SQRCCKlCI>-Sl>"2+CK2CI>-S2>"-2> 

110 GOSUB 610:G0SUB 450: Q1=X: Q2=Y: X=8: Y=l 1 Xl=. 2075: Yl=6. 28: X2=3. 28 

120 Y2=l. 8: A=. 96: C = 100: W=10:K9=0: B9=0:S9=400: T9=3451:G0TQ 140 

130 K=K+(N<X2)+CN<Y2)+<NC 28) + (N<. 08)+CNC 03> + CNC 01 ) : K9=K9-K: GOTO 160 

140 T0=3421: T=T0: E0=4000: E=EO: P0=10: P=PO: FOR 1=0 TO 7 

150 FOR J=0 TO 7:K=0:N=RNDCY>: IF N<X1 THEN N=N»64: K=CNCY1 >-Y: GOTO 130 

160 B=CRNDCY>>A>:B9=B9-B.GCI, J)=K*C+B*W-INTCRNDC Y)»X+Y> : NEXT J, I 

170 IF K9XT9-T0) THEN T9=T0+K9 

ISO IF B9>0 THEN 200 

190 GOSUB 450: Q(X, Y)=QCX. Y>-10: B9=l 

200 PRINT LEFT*C"STARTREK ADAPTED BY L.E.COCHRAN 2/29/76", 8) : K0=K9 

210 PRINT"08UECTIVE: DESTROY"; K9; "KLINGON BATTLE CRUISERS IN"; T9-TO; 

220 PR I NT "YEARS. ": PRINT" THE NUMBER OF STARBASES IS"; B9 

230 A=0: IF QXO OR Gl>7 OR Q2<:0 OR Q2>7 THEN N=0: S=Q: K=0: GOTO 250 

240 N=ABSCQCG1, G2) >: GCQ1,G2>=N: S=N-INTCN/10)*10:K=INTCN/100> 

250 B=INTCN/10-K»10): GOSUB 450: S1=X: S2=Y 

260 FOR 1=0 TO 7: FOR J=0 TO 7: S( I. J)=l : NEXT J, I. SCSI, S2)=2 

270 FOR 1=0 TO 7: K3< I )=0: X=S: IF KR THEN GOSUB 460: S( X, Y»=3: K3< I )=S9 

280 K1CI)=X: K2CI)=Y: NEXT: I=S 

290 IF B>0 THEN GOSUB 460:SCX,Y>=4 

300 IF I>0 THEN GOSUB 460: 5CX. Y)=5: 1 = 1-1 : GOTO 300 

310 GOSUB 550: IF A=0 THEN GOSUB 480 

320 IF E<=0 THEN 1370 

330 1=1: IF DCIK'O THEN 620 

340 FOR 1=0 TO 7: FOR J=0 TO 7": PRINT MID*CG*. S( I, J), 1 ) ; " "; : G0SUB1700: NEXT 

350 PRINT" ";:0N I GOTO 380,390,400,410,420,430,440 

360 PRINT"YEARS ="; T9-T 

370 NEXT: GOTO 650 

380 PRINT"STARDATE="; T: GOTO 370 

390 PRINT"CONDITION: "; C«: GOTO 370 

400 PRINT"QUADRANT=";G1 + 1; "-"; G2+1: GOTO 370 

410 PRINT"SECTOR = ";S1 + 1; "-"; S2+1 : GOTO 370 

420 PRINT"ENERGY=";E: GOTO 370 

430 PRINT D*(4); " = ";P:GOTO 370 

440 PRINT"KLINGONS LEFT=" i K9: GOTO 370 

450 X=INT(RND<1 ) #8 ) : Y=INT(RND ( 1 )»8 ) : RETURN 

460 GOSUB 450: IF S(X, Y>>1 THEN 460 

470 RETURN 

480 IF K<C1 THEN RETURN 

490 IF C*="DOCKED" THEN PRINT"STARBASE PROTECTS ENTERPRISE": RETURN 

500 FOR 1=0 TO 7: IF K3U><=0 THEN NEXT: RETURN 

510 H=K3<I)». 4*RND<1):K3(I)=K3(I)-H:H=H/<FND<0)'-. 4):E=E-H 

520 E*="ENTERPRISE FROM" : N=E: GOSUB 530: NEXT: RETURN 

530 PRINT H; "UNIT HIT ON ";E*;" SECTOR"; Kl < I ) + l; "-"; K2t I ) + l; 

540 PR INT" ( " ; N; "LEFT > " : RETURN 

550 FOR I=S1-1 TO S1+1:F0R J=S2-1 TO S2+1 

560 IF KO OR I>7 OR J<0 OR U>7 THEN 580 

570 IF S(I,J)=4 THEN C*="DOCKED": E=EO: P=PO: GOSUB 610: RETURN 

580 NEXT J, I: IF K>0 THEN C*="RED" : RETURN 

590 IF E<E0*. 1 THEN C*=" YELLOW" : RETURN 

600 C*="GREEN": RETURN 

610 FOR N=0 TO 5: D<N)=0: NEXT: RETURN 

620 PRINT D*(I);" DAMAGED."; 

630 PRINT" ";D(I>; "YEARS ESTIMATED FOR REPAIR. ": PRINT 

640 IF A=l THEN RETURN 

650 F0RLL=1T07:PRINTMID*( "COMMAND", LL, 1); : GOSUB 16O0: NEXT: GOSUB 1300: INPUTA 

660 IF A<1 OR A>6 THEN 6S0 

670 ON A GOTO 710, 310, 1250, 1140, 690, 1300 

680 FOR 1=0 TO 3:PRINT 1 + 1; "= "; DSC I ): NEXT: GOTO 650 

690 IF DC4)>0 THEN PRINT"SPACE CRUD BLOCKING TUBES. ";: 1=4: GOTO 630 

700 N=15: IF P<1 THEN PRINT"NO TORPEDOES LEFT": GOTO 650 

710 IF A=5 THEN PRINT"TORPEDO "; 

720 INPUT"COURSE C 1-8. 9) "; C: IF C<1 THEN 650 

730 IF C>=9 THEN 710 

740 IF A=5 THEN P=P-1: G0SUB1900: PRINT"TRACK: "; : GOTO 900 

750 INPUT"WARP C0-12)";W:IF W<=0 OR W>12 THEN 710 

760 IF W<=. 2 OR DC0)<=0 THEN 780 

770 1=0: PRINT D«(!);" DAMAGED, MAX IS .2 ";: GOSUB 630: GOTO 750 
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780 GQSUB2000: GOSUB 480: IF E<=0 THEN 1370 

790 IF RND<1)>. 25 THEN 870 

800 X=INT<RND<1>*6): IF RND(i)>. 5 THEN 830 

810 D(X>=DCX)+1NT(6-RND(1>*5>:PRINT"**SPACE STDRM, "l 

820 PRINT D*<X)i" DAMAGED**": I =X: GOSUB 630: D(X >=D( X > + l : GOTO 870 

830 FOR I=X TO 5: IF D"(I)>0 THEN 860 

840 NEXT 

850 FOR 1=0 TO X:IF D(IX=0 THEN NEXT: GOTO 870 

860 D(I)=. 5:PRINT"**BP0CK USED A NEW REPAIR TECHNIQUE**" 

870 FOR 1=0 TO 5: IF D<I)=0 THEN 890 

880 D(I>=D<I>-1: IF D<IX=0 THEN D(I)=0:PRINT D$<I);" ARE FIXED!" 

890 NEXT:N=INT<W*8>:E=E-N-N+. 5: T=T+1 : StSl, S2)=l 

900 Y1=S1+. 5: X1=S2+. 5: IF T>T9 THEN 1370 

910 Y=CC-1>*. 785398: X=COS(Y): Y=-SIN(Y> 

9S0 FDR 1=1 TO N: Y1=Y1+Y: X1=X1+X: Y2=INT<Y1): X2=INT(X1> 

930 IF X2-C0 OR X2>7 OR Y2<0 OR Y2>7 THEN 1110 

940 IF A=5 THEN PRINT Y2+1; "-'*; X2+1, 

950 IF S(Y2, X2) = l THEN NEXT: GOTO 1060 

960 PRINT: IF A=l THEN PRINT"BL0CKED BY "; 

970 ON S(Y2. X2)-3 GOTO 1040.1020 

980 PRINT"KLINGQN"; : IF A=l* THEN 1050 

990 FOR 1=0 TO 7: IF V20KKI) THEN 1010 

1000 IF X2=K2(I) THEN K3(I)=0 

1010 NEXT: K=K-1:K9=K9-1: GOTO 1070 

1020 PRINT"STAR"; : IF A=5 THEN S=S-1:G0T0 1070 -•-.•-■ 

1030 GOTO 1050-2L29E76C 

1040 PRINT"STARBASE"; : IF A=5 THEN B=2: GOTO 1070 

1050 PRINT" AT SECTOR"; Y2+li »-"] X2+1: Y2=INT<YI-Y> : X2=INT< Xl-X > 

1060 S1=Y2:S2=X2:S(S1,S2)=2: A=2: GOTO 310 

1070 PRINT" DESTROYED!"; : G0SUB22O0: IF B=2 THEN B=0:PRINT". . .GOOD WORK!"; 

1080 PRINT: S<Y2, X2) = 1:Q<Q1,Q2>=K*100+B*10+S: IF K9<1 THEN 1400 

1090 GOSUB 480: IF EOO THEN 1370 

1100 GOSUB 550: GOTO 650 

1110 IF A=5 THEN PRINT"MISSED! ": G0SUB2300: GOTO 1090 

1120 Q1=INT(Q1+W*Y+(S1+. 5) /8) : Q2=INT(Q2+W*X+tS2+. 5)/8) 

1130 Gl=Ql-<ai<0)+<Gl>7):Q2=Q2-<Q2<0)+<Q2>7>: GOTO 230 

1140 1=3: IF D(I>>0 THEN 620 

1150 INPUT"PHASERS READY: ENERGY UNITS TO FIRE"; X: IF X<=0 THEN 650 

1160 IF X>E THEN PRINT"ONLY GOT"; E: GOTO 1150 

1165 G0SUB2100 

1170 E=E-X: Y=K:FOR 1=0 TO 7: IF K3CIX=0 THEN 1230 

1180 H=X/<Y*CFND(0>-\ 4> ) : K3C I )=K3( I >-H 

1190 E*="KLINGON AT": N=K3< I ) : GOSUB 530 

1200 IF K3(I)>0 THEN 1230 

1210 PRINT"**KLINGON DESTROYED**": G0SUB2200 

1220 K-K-l: K9=K9-1: S(K1 ( I >, K2( I > > = 1: Q<G1. Q2)=G(Q1, Q2)-100 

1230 NEXT: IF K9<1 THEN 1400 

1240 GOTO 1090 

1250 1=2: IF D<I)>0 THEN 620 

1260 PRINT D*CI>;" FOR QUADRANT"; Ql + 1; "-"; G2+1 

1270 FOR I=Qi-i TO Ql+l.FOR J=Q2-1 TO Q2+1:PRINT" "; 

1280 IF KO OR I>7 OR J-CO OR J>7 THEN PRINT"***"; : GO) U 1350 

1290 QU, J)=ABS(Q(I, J)): GOTO 1340 

1300 1=5: IF D<I)>0 THEN 620 

1310 PRINT'TUMULATIVE GALACTIC MAP FOR STARDATE";T 

1320 FOR 1=0 TO 7: FOR J=0 TO 7: PRINT" "; 

1330 IF Q(I,JX0 THEN PRINT"***"; : GOTO 1350 

1340 E*=STR*<Q(I, J) ):E*="00"+MID*<E*,2):PRINT RIGHT9XE*. 3) ; 

1345 G0SUB1800 

1350 NEXT J: PRINT: NEXT I : GOTO 650 

1360 PRINT: PRINT"IT IS STARDATE" i T: RETURN 

1370 GOSUB 1360:PRINT"THANKS TO YOUR BUNGLING, THE FEDERATION WILL BE" • 

1380 PRINT"CONQUERED BY THE REMAINING"; K9; "KLINGON CRUISERS!" 

1390 PRINT"YOU ARE DEMOTED TO CABIN BOY!": GOTO 1430 

1400 GOSUB 1360:PRINT"THE FEDERATION HAS BEEN SAVED!" 

1410 PRINT"Y0U ARE PROMOTED TO ADMIRAL" : PRINT KO; "KLINGONS IN"; 

1420 PRINT T-TO; "YEARS. RATING="; INT<K0/ <T-T0>*1000> 

1430 INPUT"TRY AGAIN";E*:IF LEFT*<E«, 1 >="Y" THEN 110 

1500 REM 88-MU1 INITIALIZE 

1510 0UT&0363. 128: 0UT8i0367, 128: 0UT&0373, 128 

1520 RETURN 

1600 REM COMMAND BEEPER 

1605 QQ=1 

1610 0=3 

1 620 N= I NT ( 255*RND ( QG ) ) AND&Q360 

1630 0UT&Q36Q, 0: 0UTM3362. N 

1640 FORDD=0T014: NEXT 

1650 RETURN 

1700 REM MAP #2 SOUND 

1705 IFS(I, J X2THENRETURN 

1706 IFSCI. JX>3THEN1710 

1707 0UT&0361, 128: aUT*-.0360, 128: 0UT&0362, 16: FORDD=OT0100: NEXT: G0SUB150O: RETURN 
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1710 0UTS!0361,S(I, J) 

1720 OUT&0362, 2"-I 

1730 G0SUB1S00 

1740 RETURN 

1800 REM MAP #3 AND #6 SOUND 

1805 IFQ(I, JX100THEN1810 

1806 0UT&0361, 128: 0UTS..0360. 128: OUT&0362 
1810 0UT&0361, 0(1, J> 

1820 0UT&0362, 2~I 

1830 GQSUB1500 

1840 RETURN 

1900 REM PHOTON TORPEDO SOUND 

1905 0=128 

1910 0=0/2 

1920' FORN=0TOll 

1930 OUT&0362, N: 0UT&0361, 

1940 NEXT: IF0O1THEN1910 

1945 G0SUB1500 

1950 RETURN 

2000 REM WARP SOUND 

2005 F0RKK=1T03 

2010 0UT&0361. &0300 

2015 0UT&0360, 8.040 

2020 FORN=OT011 

2021 NN=N*16: 0UT8.0362, NN+N 
2025 F0RDD=0TO50: NEXT 
2040 NEXT 
2045 NEXT 

2050 0UT8.0360, O: 0UT8.0361. 0: RETURN 
2100 REM PHASOR SOUNDS 
2110 F0RPP=1T0200 

2112 0UT&0361, 3 

2113 PN=ABS(PN-1> 
2116 0UT8.0362, PN 
2130 NEXT 
2140 0UT8.O361.0 
2150 RETURN 

2200 REM DEAD ITEM SOUND 
2205 DUTWJ361, 8.0300 
2210 F0RN=11T00STEP-1 
2215 F0RDD=0T040:NEXT 
2220 0UT8.0362. N 
2230 NEXT 

2240 0UT&0361, O: RETURN 
2300 REM INSULT MELODY 
2310 READN, TT 
2315 IFTT=0THEN2350 
2320 0UTS.D361, M310: 0UT8.0362, N 
2330 FORD=OTOTT:NEXT 
2340 G0TO2310 
2350 0UTS.0361, 0: RESTORE: RETURN 

3000 DATA3, 100 

3001 DATA12, 4 

3002 DAT A3, 100 

3003 DATAO, 100 

3004 DATA5, 100 

3005 DATA3, 200 

3006 DATAO, 200 
3010 DATAO, O 



16:FORDD=OT0100: NEXT: GOSUB 1 500: RETURN 
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FF82 




CPX 




#0UTS 


00170 


41 IF 26 


DD 




BNE 




EXT2B 


00171 


4121 


BD 


42FF 


DOIT 


JSR 




EON 


00172 


4124 


BS 


43A8 




LDA 


A 


AREG 


00173 


4127 


FS 


43A7 




LDA 


B 


BREG 


00174 








********** 






00175 


412A 


3D 






FCB 




$BD 


001 7S 


412B 


00 




CKADR 


FCB 




0,0 


001 77 








********** 






00178 


412D 


B7 


43A8 




STA 


A 


AREG 


00179 


4130 


F7 


43A7 




STA 


B 


BREG 


00180 


4133 


BD 


4302 




JSR 




EOF 


00181 


4136 


BD 


4274 




JSR 




CKHUM3 1 


00182 


4139 


FE 


43AB 




LDX 




PCREG 


00183 


413C 


08 






I NX 




1 


00189 


413E 


08 






I NX 






00186 


413F 


A6 


00 




LDA 


A 


X 


00187 


4141 


B7 


43A0 




STA 


A 


INST 


00188 


4144 


7E 


4256 




JMP 




RUN2 


00189 








* 








00190 


4147 


08 




SAVLK3 


I NX 






00191 


4148 


08 




SAVLK2 


I NX 






00192 


4149 


08 




SAVLK1 


I NX 






00193 


414A 


FF 


42CD 




STX 




HERE 


00194 


414D 


BF 


4398 




STS 




STKTMP 


00195 


4150 


BE 


4396 




LDS 




MYSTK 


00196 


4153 


BS 


42CE 




LDA 


A 


HERE+1 


00197 


4156 


36 






PSH 


A 




00198 


4157 


B6 


42CD 




LDA 


A 


HERE 


00199 


415A 


3S 






PSH 


A 




00200 


415B 


BF 


4396 




STS 




MYSTK 


00201 


415E 


BE 


4398 




LDS 




STKTMP 


00202 


4161 


7C 


439A 




INC 




SUBCNT 


00203 


4164 


39 






RTS 






00204 








* 








00205 


4165 


B6 


43A0 


I MM 


LDA 


A 


INST 


00206 


4163 


81 


BD 




CMP 


A 


#$3D 1 


00207 


416A 


27 


15 




BEQ 




BSIMM 


00208 


416C 


81 


8C 




CMP 


A 


#$SC ( 


00209 


416E 


27 


0B 




BEQ 




IMM3 


00210 


4170 


31 


8E 




CMP 


A 


#$8E 


00211 


4172 


27 


07 




BEQ 




IMM3 


00212 


4174 


81 


CE 




CMP 


A 


#$CE 


00213 


4176 


27 


03 




BEQ 




IMM3 


00214 


4178 


7E 


40C2 




JMP 




DIR 


00215 


417B 


BD 


42 EE 


IMM3 


JSR 




P0P2 


00216 


417E 


7E 


40 EC 




JMP 




EXT1 


00217 


4181 


FE 


43AB 


BSIMM 


LDX 




PCREG 


00218 


4184 


3D 


CS 




BSR 




SAVLK2 


00219 


4186 


7E 


4212 




JMP 




REL 


00220 








* 








00221 


4189 


BD 


42DC 


INHER 


JSR 




POP0 


00222 


418C 


F6 


43A0 




LDA 


B 


INST ... 


00223 


418F 


CI 


39 




CMP 


B 


#$39 


00224 


4191 


27 


16 




BEQ 




INH1 


00225 


4193 


CI 


3B 




CMP 


B 


#$3B 


00226 


4195 


27 


0D 




BEQ 




INHOUT 


0022 7 


4197 


CI 


3E 




CMP 


B 


#$3E 


00228 


4199 


2 7 


09 




BEQ 




INHOUT 


00229 


419B 


CI 


3F 




CMP 


B 


#$3F 


00230 


419D 


27 


05 




BEQ 




INHOUT 


00231 


419F 


CS 


01 




LDA 


3 


#1 


00232 


4IA1 


7E 


40 EE 




JMP 




EXT1A 


00233 


41A4 


36 


58 


INHOUT 


LDA 


A 


#'X 


00234 


41A6 


7E 


4056 




JMP 




DMP1 


00235 


41 A9 


7D 


439A 


INH1 


TST 




SUBCNT 


00236 


41AC 


27 


F6 




BEQ 




INHOUT 


00237 


41AE 


7A 


439A 




DEC 




SUBCNT 


00238 


4131 


BF 


4398 




STS 




STKTMP 



JSR 



ESCAPE? 

NO 

PAST JSR 



SAVE LINK 



BSR? 
CPX? 
LDS? 
LDX? 

OK 



FILL OPRND 

RTS 

RTI 

WAI 

SWI 



WON'T ALLOW 
PRINT 4 EXEC 

TOO MANY RTS? 
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00239 41B4 


BE 4396 




LDS 




MYSTK 




00240 41B7 


32 




PUL 


A 






00241 41 BS 


B7 42CD 




STA 


A 


HERE 




00242 4 IBB 


32 




PUL 


A 






00243 41BC 


B7 42CE 




STA 


A 


HERE+1 




00244 41 EF 


FE 42CD 




LDX 




HERE 




00245 41C2 


FF 43AB 




STX 




PCREG 




00246 41C5 


BF 4396 




STS 




MYSTK 




0024 7 4iC8 


BE 4398 




LDS 




STKTMP 




00248 41CB 


7E 40F8 




JMP 




EXT1C 




00249 
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00250 41CE 


BD 42 El 


INDX 


JSR 




P0P1 


LOAD OPRND 


00251 41 Dl 


FE 43A9 




LDX 




XREG 




00252 4104 


FF 412B 




STX 




CKADR 




00253 41D7 


0C 




CLC 








00254 41 D3 


5F 




CLR 


B 






00255 41D9 


B6 43A1 




LDA 


A 


INST+I 


LOAD INDEX VALUE 


0025S 4 IDC 


8D 17 




BSR 




ADDM 




0025 7 41 DE 


B6 43A0 


INDX2 


LDA 


A 


INST 




00258 41 El 


81 AD 




CMP 


A 


#$AD 


JSR? 


00259 41E3 


27 07 




BEQ 




INDX4 




00260 41 E5 


81 6E 




CMP 


A 


#$6E 


JMP 


00261 41 E7 


27 09 




BE3 




INDX5 




00262 41 E9 


7E 40CE 


INDX3 


JMP 




DIR3 




00263 41 EC 


FE 43AB 


INDX4 


LDX 




PCREG 




00264 41 EF 


BD 4148 




JSR 




SAVLK2 




002S5 41 F2 


7E 4104 


INDX5 


JMP 




EXT2 




00266 




* 










0026 7 41 F5 


BB 412C 


ADDM 


ADD 


A 


CKADR+1 


LS BITS 


00268 41F8 


F9 412B 




ADC 


B 


CKADR 


MS BITS 


00269 41 FB 


B7 412C 


ADDM1 


STA 


A 


CKADR+1 




002 70 4 1 FE 


F7 412B 




STA 


B 


CKADR 




00271 4201 


39 




RTS 








032 72 




* 










002 73 4202 


BB 412C 


SUBM 


ADD 


A 


CKADR+1 




002 74 4205 


24 05 




BCC 




SUB I 




002 75 4207 


FB 412B 




ADD 


B 


CKADR 




002 76 420A 


20 EF 




BRA 




ADDM1 
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SUB1 


ADD 


B 


CKADR 
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5A 
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B 
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20 E9 




BRA 
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00281 4212 


BD 42 El 


RL 


JSR 




P0P1 


OPRND 


00282 4215 


FE 43AB 




LDX 




PCREG 




00283 4218 


08 




I NX 








00284 4219 


08 




I NX 








00285 421 A 


FF 412B 




STX 




CKADR 




00286 421 D B6 43A0 




LDA 


A 
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GET READY FOR JUMP 


00287 4220 


B7 4227 




STA 


A 


PSEUDO 
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B6 43A6 




LDA 


A 


CCREG 
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06 




TAP 








00290 




********** 
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00 


PSEUDC 
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********** 








00293 4229 


20 BE 
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INDX3 


DOES NOT JMP 
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0C 
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5F 




CLR 


B 
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A 
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00297 4230 
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BPL 
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BSR 




SUBM 
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FCB 
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CPX 
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BSR 




ADDM 
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20 B9 
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MAKE SWAP 
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* 










00303 4239 


FE 439B 


RUNVCT 


LDX 




SWIADR 


RESTORE INSTR 


00304 423C 


B6 43A0 




LDA 


A 


INST 
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A7 00 




STA 


A 


X 




00306 4241 


86 07 




LDA 


A 


#7 




00307 4243 


CE 43A6 




LDX 




0CCREG 




00308 4246 


33 


SAVI 


PUL 


B 






00309 4247 


E7 00 




STA 


B 


X 




00310 4249 


08 




I NX 








00311 424A 


4A 




DEC 


A 






00312 424 B 


26 F9 




BNE 




SAV1 




00313 424D 


BF 43A4 




STS 




STKHI 




00314 4250 


SD 1A 




BSR 




CKHUM 


CHECK HUMAN 


00315 4252 


FE 43AB 


RUN 


LDX 




PCREG 




00316 4255 


09 




DEX 






DUE TO SWI 


0031 7 4256 


FF 43AB 


RUN2 


STX 




PCREG 




00318 425 9 


BS 43A0 




LDA 


A 


INST 




00319 425 C 


84 F0 




AND 


A 


#$F0 


CLEAR JNK 


00320 425 E 


44 




LSR 


A 






00321 425 F 


44 




LSR 


A 






00322 4260 


44 




LSR 


A 






00323 4261 


CE 43D3 




LDX 




#TABLE-1 


SET FOR JMP 


00324 4264 


08 


Rl 


I NX 








00325 4265 


4A 




DEC 


A 








COMPUTER NOTES IS 

MOVING. . . 

The main editorial office 
of Computer Notes will be loca- 
ted at Pertec offices in Cali- 
fornia. 

Due to the change in location 
and editorial staff the publi- 
cation of the November and 
December issues has been 
delayed. 

Manuscripts and letters may 
still be sent to the MITS 
address. Watch the upcoming 
issues of CN for the new mail- 
ing address. 
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Nineteen 



String Character Editing Routine 



By Ken Knecht 
1240 W. 3rd St. 
Space 135 
Yuma, Arizona 85364 

If you read my article ("Writing Ma- 
chine Helps Prepare Manuscripts") in the 
July '77 Computer Notes, then you might 
have noticed that I mentioned plans to 
write a string character editing routine for 
my word processor program. I also said 
that I didn't see how it could be done in 
BASIC. Well, it can, and the following 
article explains how to do it. 

The heart of the program is lines 6500- 
6510. This subroutine inputs a character 
from the terminal without echoing it. The 
routine supports a subset of the MITS SIOA 
Rev. 1 I/O board. Changes of the port 
numbers and status flags will enable you to 
use the 2SI0 board. 

Essentially, the program supports a 
subset of the MITS BASIC character edit- 
ing function. This version recognizes (n)C, 
(n)D, L, Q. I, H, and X. These are usually 
ample for most editing requirements. The 
S would also be useful, so I may add it 
later. The routine also recognizes the 
delete (rubout, backarrow, or whatever) 
command when in the insert mode (or after 
X or H). Edit commands can be in upper or 
lower case. As in MITS BASIC, editor 
command letters and numbers are not 
echoed. 

Line Description 

6000 ED=1: Set edit flag in my pro- 
gram. The query gets the identi- 
fying number of the string to be 
edited in C. We transpose that 
to D for the program, set some 
program flags you don't need to 
be concerned with , get the length 
of the string in Z4, and initialize 
the variable. 
Here we get the character hww* 
without echo in routine 65(40. 
Here we get the EDIT command in 

upper or lower case. 
Error signal (bell); if input is not in 
edit routine repertoire, then the 
bell is sounded, and we go back 
to 6010 for a valid input. 
Space input; if LE (length of edited 
string is greater than Z4 (length 
of original string), then 6120. 
Space input; print next character in 
string and transfer it to the edited 
string. Increment edited string 
character count. Go get next 
input character. 



Runs in BASIC 



6010 

6020- 
6110 
6120 



6130 



6140 



6150 



6160 
6170 

6171 
6172 

6173 



Numeric input; Zl$ contains the 
numeric characters received so 
far. Put number Zl$ or add to 
number already there. 

Get next character input. 

C input; if no number prefix (Zl$), 
then 6174. 

C input; set up for (n) changes of C. 

C input; get next character. Print 
it. Add it to edited string. 

C input; back to 6171 if more char- 
acters to change. When finish- 
ed, add new characters to edited 
string count. Put null in Zl$ 
(numeric input). Get a new 
command. 

LIST 6000- 



6174 

6180 
6190 

6200 



C input with no numeric prefix; 
print new character. Add to 
edited string character count. 
Add edited character to edited 
string. Get new command. 

D input; if no numeric prefix then 
6220. 

D input with numeric prefix. Print 
initial "/". Set up character 
deletion corresponding to nu- 
meric input. 

Print deleted characters as per 
numeric input. 

continued 



6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6171 

6172 

6173 

6174 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6 260 

6270 

6272 

6274 

6275 

6280 

6290 

6300 

6310 

6320 

6330 

270 

6340 

6350 

6360 

6370 

6380 

6390 

6400 

6500 

6510 

OK 



ED=1: PRINT" WHAT IS THE LINE NUMBER?" : INPUT C:D=C : Z=Z+1 :CH (Z, 0) =C : 

GOSUB 3010:Z4=LEN(C?) : LE = 1 :D$= n " : Zl$="" 
GOSUB 6500 
IP Z$=" "THEN 6130 
IF Z$=>"1"AND Z$<="9"THEN 6150 
IF Z$="C" OR ZS="c" THEN 6170 
IF Z$="D" OR Z$="d"THEN 6180 
IF Z$ = "L" OR Z$="1"THEN 6,230 
IF Z$="Q" OR Z$="q"THEN 6260 
IF Z$="I" OR Z$="i" THEN 6270 
IF Z$="X" OR Z$="x" THEN 6290 
IF Z$="H" OR Z$="h"THEN 6320 
IF ZS=CHRS(13) THEN 6330 
PRINT CHR$ (7) ; :GOTO 6010 
IF LE>Z4 THEN 6120 

PRINT MID$(C$,LE,1) ; :D$=DS+MID$ (C$ , LE, 1) :LE=LE+1 :GOTO 6010 
IF ZlSO""THEN Z1S=Z1$+Z$ ELSE Z1S=Z$ 
GOTO 6010 
IF Z1$=""THEN 6174 
FOR Z2%=LE TO LE+VAL (Zl$ ) -1 
GOSUB 6500 1PRINT Z$;:D$=DS+ZS 
NEXT:LE=Z2%:Z1$="":GOTO 6010 

GOSUB 6500:PRINT Z $; :LE=LE+1 : D$=D$+Z$ :GOTO 6010 
IF Z1S=""THEN 6220 

PRINT"\"r :FOR Z2%=LE TO LE+VAL(Zl$) -1 
PRINT MIDS (C$,Z2%,1) ; :NEXT 
PRINT"\"; :LE=Z2%:Z1$="" :GOTO 6010 

PRINT"\"; : PRINT MIDS <C$ , LE , 1 ) ; : PRINT"\" ; :LE=LE+1 :GOTO 6010 
FOR Z2%=LE TO Z4 

PRINT MID$(C$,Z2%,1) ; :D$=DS+MID$ (C$ ,Z2% , 1) 
NEXT:C$=D$:D$="":PRINT:Z4=LEN(C$) :LE=l:GOTO 6010 
PRINT:DS="" :GOTO 270 
GOSUB 6500 

IF Z$=CHR$(127)THEN 6370 
IF Z$=CHRS(27)THEN 6010 
IF Z$=CHR$(13)THEN 6330 
PRINT Z$; :D$=D$+Z$:GOTO 6270 
FOR Z2%=LE TO Z4 

PRINT MID$(C$,Z2%,1); :D$=D$+MID$ (C$, Z2%, 1) 
NEXT:LE=Z4:GOTO 6270 
Z4=LE:GOTO 6270 
IF LE=>Z4 THEN PRINT CHR? (13) :D$=D$+CHR$ (13) :C$=D$ :GOSUB 3120:GOTO 

FOR Z2%=LE TO Z4 

PRINT MID$(C$,Z2%,1) ; :DS=D$+MID$ (C$,Z2% , 1) 

NEXT:PRINT CHR$(13) : D$=D$+CHR$ (13) :CS=D$:GOSUB 3120:GOTO 270 

PRINT" \"; 

PRINT MID$ (D$,LEN(D$) ,1) • :D$=LEFT$ (D$,LEN (D$)-l) 

GOSUB 6500:IF ZS=CHRS (127)THEN 6380 

PRINT"\"; :GOTO 6274 

WAIT 0,&O1,SO1 

Z2=INP(1)ANDS0177:Z$=CHR$ (Z2) : RETURN 
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6210 Finished deletion. Print"/". Add 
deleted character count to point- 
er for original string. Put null in 
Zl$. Get next comma or charac- 
character. 

6220 D input with no numeric prefix. 
Print initial "/". Print deleted 
character. Pring final "/". 
Incremented original string 
pointer. Get next command. 

6230 L input; set up move to the end of 
the string. 

6240 Print all characters in the original 
string to end and add to edited 
string. 

6250 Transfer edited string to original 
string variable. Initialize varia- 
bles to new string. Get next 
command. 

6260 Q input; put null in edited string. 
Return to calling program. 

6270 I input; get next command or char- 
acter. 

6272 I input; if rubout, then 6370. 

6274 I input; if escape, then get next 

command. 

6275 I input; if carriage, return then 

6330. 

6280 I input; if none of above, then print 
character. Add to edited string. 
Get next character or command 
at 6270. 

6290 X input; set up loop to print re- 
mainder of the line. 

6300 X input; print next character in 
original string. Add to edited 
string. 

6310 X input; loop to get next character. 
If finished, set last character to 
end of string. Go to 6270 and 
insert mode. 

6320 H input; Make end of edited string 
end of string. Go to 6270 and 
insert mode. 

6330 Carriage return. If at end of origi- 
nal string, add carriage return to 
edited string. Return to calling 
program. 

6340 Carriage return. If not at end of 
original string, set up loop to 
print remaining character. 

6350 Carriage return. Print next charac- 
ter in original string. Add to 
edited string. 

6360 Loop back for next character. If 
finished, print carriage return. 
Add carriage return to edited 
string. Return to calling pro- 
gram. 



6370 
6380 

6390 



6500 
6510 



Rubout mode. Print"/". 

Print last character. Delete last 

character from edited string. 
Rubout mode. Get next character 

or command. If rubout, go to 

6370. 
Rubout mode. If character input in 

6380 is not a rubout, then print 

"/". Return to insert mode. 
Wait for a character input from 

terminal &01 is octal 1 . 
Character received. Mask to 7 bits 

with octal 177. Change to single 

character string. Return. 

END 



TRACE PROGRAM Assembled Listing 


continued 


00326 


4266 2A 


FC 




BPL 




Rl 




0032 7 


4268 EE 


00 




LDX 




X 




00328 


426A 6E 


00 




JMP 




X 


TAKE JMP 


00329 






* 










00330 


426C BD 


FF24 


CKHUM 


JSR 




POLCAT 


HUMAN WANT CONTROL? 


00331 


426 F 24 


0A 




BCC 




CKHUM2 


NO 


00332 


4271 BD 


FF04 


CKHUM1 


JSR 




INCH+4 




00333 


42 74 CI 


IB 


CKHUM3 


CMP 


B 


#$1B 


ESCAPE? 


00334 


42 76 26 


03 




BNE 




CKHUM2 


NOPE 


00335 


4278 7E 


4007 




JMP 




DEBUG 


SCRAM 


00336 


427B 39 




CKHUM2 


RTS 






BACK YOU GO 


0033 7 






* 










00338 


42 7C BC 


43B1 


EXMDR 


CPX 




BIADR 


INST BKPNT? 


00339 


427F 27 


2E 




BEQ 




BKPT 




00340 


4281 B6 


43AE 




LDA 


A 


TON+1 




00341 


4284 F6 


43AD 




LDA 


B 


TON 




00342 


4287 80 


01 




SUB 


A 


#1 


CRRCT FOR CARRY 


00343 


4289 C2 


00 




SBC 


B 


#0 




00344 


428B B0 


412C 




SUB 


A 


CKADR+1 




00345 


428 E F2 


412B 




SBC 


B 


CKADR 




00346 


4291 25 


06 




BCS 




EX2 




0034 7 


4293 BC 


43B3 


EXMOP ■ 


CPX 




BOADR 


OPRND BKPNT? 


00348 


4296 27 


17 




BEQ 




BKPT 




00349 


4298 39 




EX1 


RTS 








00350 


4299 B6 


43B0 


EX2 


LDA 


A 


TOFF+1 




00351 


429C F6 


43AF 




LDA 


B 


TOFF 




00352 


429 F B0 


412C 




SUB 


A 


CKADR+1 




00353 


42A2 F2 


412B 




SBC 


B 


CKADR 




00354 


42A5 25 


Fl 




BCS 




EX1 


' 


00355 


42A7 86 


54 


EX3 


LDA 


A 


# 'T 




00356 


42A9 B7 


439F 




STA 


A 


WHAT 




0035 7 


42AC 7E 


431A 




JMP 




PRNTRG 


DMP & RTRN 


00358 






* 










00359 


42AF 86 


42 


BKPT 


LDA 


A 


# 'B 




00360 


42B1 7E 


405 6 




JMP 




DMP1 


PRINT & EXEC . 


00361 






* 










00362 


42B4 BE 


43A4 


REPAK 


LDS 




STKHI 


REPAK STACK 


00363 


42B7 86 


07 




LDA 


A 


#7 




00364 


42B9 CE 


43AC 




LDX 




#PCREG+1 




00365 


42BC E6 


00 


REP1 


LDA 


B 


X 




00366 


42BE 3 7 






PSH 


B 






00367 


42BF 09 






DEX 








00368 


42C0 4A 






DEC 


A 






00369 


42C1 26 


F9 




BNE 




REP1 




003 70 


42 C3 FE 


43AB 




LDX 




PCREG 


ANYTHING GOING ON? 


003 71 


42C6 FF 


412B 




STX 




CKADR 




003 72 


42 C9 BD 


42 7C 




JSR 




EXMDR 


GO SEE 


003 73 


42CC CE 






FCB 




$CE 


LDX # 


003 74 


42 CD 00 




HERE 


FCB 




0,0 




00375 


42CF A6 


00 




LDA 


A 


X 




003 76 


42 Dl B7 


43A0 




STA 


A 


INST 




003 77 


42 D4 86 


3F 




LDA 


A 


#$3F 




003 78 


42 D6 A7 


00 




STA 


A 


X 




003 79 


42D8 FF 


439B 




STX 




SWIADR 




00330 


42 D3 3B 






RTI 








00381 






* 










00382 


42DC 4F 




POP0 


CLR 


A 




NO OPRND 



continued on page 22 
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TRACE PROGRAM Assembled Listing continued 



00383 42 DD B7 


43A3 


STA A 


ASCFG 




00466 4377 00 




FCB 





00384 42 E0 39 




RTS 






00467 


* 






00385 42 El 86 


01 POP1 


LDA A 


#1 




00463 4378 0D 


MES1 


FCB 


$0D,S0A 


00386 42E3 3D 


F3 


BSR 


POP0+1 




00469 437A FF 




FCB 


$FF 


00387 42. E5 FE 


43AB 


LDX 


PCREG 




00470 437B 44 




FCC 


/DEBUG/ 


00388 42 E8 E6 


01 


LDA B 


l.X 




00471 4380 00 




FCB 





00389 42 EA F7 


43A1 


STA B 


INST+1 




00472 


* 






00390 42 ED 39 




RTS 






00473 4331 20 


MES2 


FCC 


/ ADDR ? / 


00391 42 EE 86 


02 P0P2 


LDA A 


#2 




004 74 4389 00 




FCB 





00392 42 F0 3D 


Fl 


BSR 


POP1+2 




00475 


* 






00393 42 F2 E6 


02 


LDA B 


2.X 




00476 438A 0D 


MES4 


FCB 


$0D,$0A 


00394 42 F4 F7 


43A2 


STA B 


INST+2 


: - . ;'■ . 


00477 438C FF 




FCB 


$FF,0 


00395 42F7 39 




RTS 






004 78 


* 






00396 


* 








00479 438 E 2A 


EM 


FCC 


/♦ERROR*/ 


00397 42F3 8D 


05 BAD 


BSR 


EON 


ECHO ON 


00480 4395 00 




FCB 





00393 42 FA BD 


FFS2 


JSR 


BADDR • 


GET ADDR 


00431 


* 






00399 42FD 20 


03 


BRA 


EOF 




00482 4395 3FFF 


BYSTK 


FOB 


START-I 


00400 


* 








00483 4398 00 


STXTMP 


FCB 


0,0 


00401 42 FF 86 


03 EON 


LDA A 


#$03 




00484 439A 00 


SUBCNT 


FCB 





00402 4301 8C 




FCB 


$8C 


CPX 


00485 439B 00 


SWIADR 


FCB 


0,0 


00403 4302 86 


FF EOF 


LDA A 


#$FF 




00436 439D 00 


STKSV 


FCB 


0,0 


00404 4304 97 


F3 


STA A 


ECHO 




00487 


* 






00405 430S 39 




RTS 






00488 439 F 00 


WHAT 


FCB 





00406 


* 








00489 43A0 3F 


INST 


FCB 


$3F,0,0 


00407 4307 3D 


F6 IN 


BSR 


EON 




00490 43A3 00 


ASCFG 


FCB 





00408 4309 BD 


FF00 


JSR 


INCH 




00491 43A4 00 


STKHI 


FCB 


0,0 


00409 430C F7 


439F 


STA B 


WHAT 




00492 43A6 00 


CCREG 


FCB 





00410 430F 8D 


52 


BSR 


PNTS 




00493 43A7 00 


BREG 


FCB 





00411 4311 20 


EF 


BRA 


EOF 




00494 43AS 00 


AREG 


FCB 





00412 


* 








00495 43A9 00 


XREG 


FCB 


0,0 


00413 4313 8D 


EA BY 


BSR 


EON 




00496 43AB 00 


PCREG 


FCB 


0,0 


00414 4315 BD 


FF53 


JSR 


BYTE 




00497 43AD FF 


TON 


FCB 


$FF,$FF 


00415 4318 20 


ES 


BRA 


EOF 




00493 43AF 00 


TOFF 


FCB 


0,0 


00416 


'■ *■'■-■• 








00499 43B1 00 


BIAD3 


FCB 


0,0 


00417 431A CE 


438A PRNTRC 


LDX 


#.i»ES4' 




00500 43B3 00 


BOADR 


FCB 


0,0 


30418 431 D BD 


4063 








005 01 


* 










JSR 


MSG 




00502 43B5 4D 


JMPTB 


FCC 


/M/ MONITOR 


00419 4320 F6 


439F 


LDA B 


WHAT 


WHAT TYPE DMP 


005 03 43B6 406E 




FD3 


MONIT 


00420 4323 8D 


3B 


BSR 


PNT1 




00504 43B8 43 




FCC 


/C/ CREG 


00421 4325 B6 


43A0 


LDA A 


INST 


INST 


00505 43B9 4099 




FDB 


STC 


00422 4328 8D 


43 


BSR 


0UT2 




00506 43BB 42 




FCC 


/B/ BREG 


00423 432A E6 


43A3 


LDA A 


ASCFG 


OPRND? 


00507 43BC 40A1 




FDB 


STB 


00424 432 D 2 7 


14 


BEGS 


PRN3 


NONE 


00508 43BE 41 




FCC 


/A/ AREG 


00425 432 F B6 


43A1 


LDA A 


INST+1 




005 09 43BF 40A9 




FDB 


STA 


00426 4332 BD 


FFSD 


JSR 


0UT2H 




00510 43C1 58 




FCC 


/X/ XREG 


00427 4335 B6 


43A3 


LDA A • 


ASCFG 


MORE7 


00511 43C2 40BI 




FDB 


STX 


00428 4338 4A 




DEC. A 






00512 43C4 54 




FCC 


/T/ TRACE 


00429 4339 27 


0A 


BEQ 


PRN2 


NOPE 


00513 43 C5 4076 




FDB 


TSET 


00430 433B B6 


43A2 


LDA A 


INST+2 




00514 43 C7 4F 




FCC 


/O/ OPR BKPT 


00431 433E BD 


FF6D 


JSR 


0UT2H 




00515 43C8 4089 




FDB 


BO 


00432 4341 20 


04 


BRA 


PRN1 




00516 43CA 49 




FCC 


/I/ INST BKPT 


00433 4343 8D 24 PRN3 


BSR 


XX 




00517 43CB 4082 




FDB 


BI 


30434 4345 8D 


22 PRN2 


BSR 


XX 




00518 43CD 4A 




FCC 


/J/ JMP 


00435 4347 8D 


20 PRN1 


BSR 


XX 




00519 43CE 40B8 




FDB 


JMPXX 


00436 4349 CE 


43A4 


LDX 


#STKHI 




00520 43D0 44 




FCC 


/D/ DMP REG 


0043 7 


********** 






00521 43DI 4059 




FDB 


DMP 


00438 434C C6 




FCB 


$C6 


(LDA B #) 


00522 43D3 00 




FCB 





00439 434D 09 


HMNY 


FCB 


9 




00523 


* 






00440 


********** 






00524 43 D4 4139 


TABLE 


FDB 


INHER 


00441 434E 27 


0A PR NLP 


BEQ 


PRN4 




00525 43D6 4189 




FDB 


INHER 


00442 4350 A6 


00 


LDA A 


X 




00526 4303 4212 




FDB 


REL 


00443 4352 37 




PSH B 






00527 43DA 4189 




FDB 


INHER 


00444 4353 8D 


18 


BSR 


OUT2 




00528 43DC 4189 




FDB 


INHER 


00445 4355 S5 




PUL B 






00529 43DE 4189 




FDB 


INHER 


00446 4356 08 




INX 






00530 43E0 41CE 




FDB 


INDX 


00447 435 7 5A 




DEC B 






00531 43 E2 40 D5 




FDB 


EXT 


00448 4358 20 


F4 


BRA 


PRNLP 




00532 43E4 4165 




FDB 


I MM 


00449 435A 86 


09 PR N4 


LDA A 


*9 


FORM RSET 


00533 43E6 40C2 


■ ' ' ■ 


FDB 


DIR 


00450 435 C B7 


434D 


STA A 


HMNY 




00534 43E8 41CE 




FDB 


INDX 


00451 435 F 39 




RTS :•'; 


■ '■■■■/:- 




00535 43EA 40 D5 




FDB 


EXT 


00452 


■'•* , 








00535 43EC 4155 




FDB 


I MM 


00453 4360 BD 


FF81 PNT1 


JSR .'.- 


OUTCH 




0053 7 43 EE 40C2 




FDB 


DIR 


02454 4363 BD 


FF82 PNTS 


JSR 


OUTS 




00538 43 F3 4 ICE 




FDB 


INDX 


00455 4366 7E 


426C PNTC 


JMP 


CKHUM 




00539 43 F2 40D5 




FDB 


EXT 


0045S 


* 








00540 


* 






00457 4369 8D 


F8 XX 


BSR 


PNTS 




00541 00F3 




ORG 


S00F3 


00458 436B 20 


F6 


BRA 


PNTS 




00542 00F3 03 




FCB 


$03 


00459 


* 








00543 


* 






00460 436D BD 


FF6D 0UT2 


JSR 


0UT2H 




00544 




END 




00461 4370 20 


Fl 


BRA 


PNTS 












00462 


* 








TOTAL ERRORS 00000 








00463 4372 0D 


PR MPT 


FCB 


$0D,$0A 












00464 4374 FF 




FCB 


$FF 




ENTER PASS 








00465 43 75 40 




FCC 


/9 / 













TRACE PROGRAM continued on page32 
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Computer Evaluates Human Logic 



A Generalized Version of 
'Master Mind" for Computers 



By Doyl Watson 
MITS 

Master Mind is a popular board game 
marketed by Invicta Plastics LTD. of Lei- 
cester England. Based on logic, it involves 
two players~the code maker and code 
breaker. Since the Altair microcomputer is 
an ideal code maker which can easily eval- 
uate each play the code breaker makes, 
I've adapted Master Mind into the follow- 
ing computer program. Because it's more 
general than the board version, it's even 
more challenging and fun. 

The object of the game is for the code 
breaker to guess a sequence of colors 
which has been preset by the code maker. 
Each time the code breaker tries guessing 
the ordered list of colors, the code maker 
responds with the score or evaluation for 
that guess. The score consists of two 
numbers: (1) the number of colors that 
have been guessed correctly and in the 
correct positions, and (2) the number of 
additional colors that have been guessed 
but incorrectly positioned. At the end of 
each round, the number of guesses taken 
by the code breaker is tallied and then used 
as a criterion for how well the player has 
done. For a given number of positions and 
colors, two code breakers can compare the 
number of guesses that they used to break 
the code. 

For example, you've already request- 
ed that the computer set up a secret color 
code using three colors and three positions. 
Suppose that code is, "RED, BLACK, 
BLACK." (Notice that repititions are 
allowed.) Now suppose your first guess is, 
"BLACK, WHITE, BLACK". The compu- 
ter would then respond with three num- 
bers. First, the number of correct colors 
in the right positions =1: (BLACK in the 
third position of the code matches the 
BLACK in the third position of the guess.) 
The second number representing addition- 
al correct colors in the wrong places is 1. 
(BLACK in the second position of the code 
matches BLACK in the first position of the 
guess.) 




The following program enables the 
computer to set up a pseudo-random color 
code when the code breaker enters the 
number of colors and the number of posi- 
tions he or she is willing to guess from. 
(Obviously, difficulty increases with the 
number of colors or with the number of 
positions.) The code breaker also must 



enter a random number from 1 to 10. The 
computer will then ask "What is your 
guess." The breaker will respond with a 
guess, and the computer will then evaluate 
the guess. The game proceeds accordingly 
until the code breaker has built up a table 
of enough guesses and evaluations to 
deduce the color code. 



SAMPLE GAME PRINTOUT 



INSTRUCTIONS FOR 'LOGIC: DEDUCE THE SECRET COLOR CODE 
AFTER ENTERING TRIAL LISTS OF COLORS. ENTER THE 
FIRST 3 LETTERS (AT LEAST) OF EACH COLOR 
SEPERATING ENTRIES BY COMMAS. 

WHEN COMPUTER RESPONDS WITH THE EVALUATION FOR EACH GUESS, 
'TRU' IS THE NUMBER OF CORRECT COLORS WHICH ARE ALSO IN 
THE TRUE POSITIONS. 'XTR' IS THE NUMBER OF ADDITIONAL 
COLOR MATCHES WHICH ARE IN THE INCORRECT POSITIONS. 
'GSS' IS THE NUMBER OF GUESSES THAT HAVE BEEN TAKEN. 



ENTER: NUMBER OF COLORS, NUMBER OF POSITIONS 

16, 4 

ENTER A RANDOM NUMBER FROM 1 TO 10 

? 3 

COLORS BLACK, WHITE, RED, YELLOW, GREEN, BLUE 

ENTER YOUR GUESS HERE 

?BLA, BLU, GRE, YEL 



EVALUATIONS APPEAR HERE 



?BLA, WHI, 


YEL, 


RED 






TRU- 


1 


XTR = 


I 


GSS- 


1 


?YEL, YEL, 


WHI, 


BLA 






TRU= 





XTR = 


3 


GSS = 


2 


?WHI, YEL, 


YEL, 


BLA 






TRU= 


1 


XTR = 


3 


GSS- 


3 


•?WHI, YEL, 


BLA, 


YEL 






TRU= 


2 


XTR» 


2 


GSS = 


4 


YOU ARE 


CORRECT! ! ! 


IN 


5 GUESSES. 
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Program 



Logic 
"Master Mind" 

continued 



10 PRINT" INSTRUCTIONS FOR 'LOGIC': DEDUCE THE SECRET COLOR CODE 
20 PRINT" AFTER ENTERING TRIAL LISTS OF COLORS. ENTER THE" 
30 PRINT" FIRST 3 LETTERS (AT LEAST) OF EACH COLOR 
40 PRINT" SEPERATING ENTRIES BY COMMAS." 

50 PRINT"WHEN COMPUTER RESPONDS WITH THE EVALUATION FOR EACH GUESS," 
60 PRINT" 'TRU' IS THE NUMBER OF CORRECT COLORS WHICH ARE ALSO IN" 
70 PRINT" THE TRUE POSITIONS. 'XTR' IS THE NUMBER OF ADDITIONAL" 
COLOR MATCHES WHICH ARE IN THE INCORRECT POSITIONS." 
'GSS' IS THE NUMBER OF GUESSES THAT HAVE BEEN TAKEN." 



-MAIN PROGRAM- 



NUMBER OF COLORS, NUMBER OF POSITIONS" 



Twenty-Four 



80 PRINT" 

90 PRINT" 

95 REM 

100 REM 

110 REM 

120 PRINT 

130 PRINT"ENTER: 

140 INPUTC.N 

150 IFC=1THENST$=" BLACK" :G0T02 50 

160 IFC=2THENST$="BLACK, WHITE" :GOTO250 

170 IFC=3THENST$="BLACK, WHITE, RED" : GOTO 250 

180 IFC=4THENST$="BLACK, WHITE, RED, YELLOW" :GOT0250 

190 IFC=5THENST$="BLACK, WHITE, RED, YELLOW, GREEN" : GOTO250 , 

2 00 IFC=6THENST$="BLACK, WHITE, RED, YELLOW, GREEN, BLUE" :GOTQ250 

210 IFC=7THENST$= "BLACK, WHITE, RED, YELLOW, GREEN, BLUE, ORANGE" :GOT02 50 

2 20 IFC = 8THENST$ = "BLACK, WHITE, RED, YELLOW, GREEN, BLUE, ORANGE, PURPLE": GOTO 2 50 

2 30 IFC=9THENST$="BLACK, WHITE, RED, YELLOW, GREEN, BLUE .ORANGE, PURPLE, GOLD" 

2 40 IFC=10THENST$="BLACK, WHITE, RED, YELLOW, GREEN, BLUE, ORANGE, PURPLE, GOLD, GRAY" 
250 PRINT"ENTER A RANDOM NUMBER FROM 1 TO 10" 

260 INPUTR 

270 GOSUB 770: REM GET COLOR CODE. 

280 PRINT"COL0RS ";ST$ 

290 PRINT"ENTER YOUR GUESS HERE" ; TAB (48 ); "EVALUATIONS APPEAR HERE". . , . ... . 

300 F0RJJ=1T0N 

310 CC$(JJ)=M$(C, 1+ABS(JJ-R)) :REM- CODE GENERATOR 

320 NEXT J J 

330 REM GUESSES ENTERED HORIZONTALLY.. SEPERATED BY COMMAS. 

340 IFN=1THENINPUTG$(1) :GOTO440 

350 IFN=2THENINPUTG$(1) ,G$(2) :GOTO440 

360 IFN=3THENINPUTG$(1) ,G$(2) ,G$(3) :GOT0440 

370 IFN=4THENINPUTG$(1) ,G$(2) ,G$ (3) ,G$(4) :G0TO440 

3 80 IFN=5THENINPUTG$(1) ,G$(2),G$(3),G$(4),G$(5): GOTO44 

3 90 IFN=6THENINPUTG$(1) ,G$(2),G$(3),G$(4),G$(5),G$(6) :GOT0440 

4 00 IFN=7THENINPUTG$(1) ,G$(2),G$(3),G$(4),G$(5),G$(6) , G$ ( 7 ) : GOTO440 

410 IFN=8THENINPUTG$(1) ,G$(2),G$(3),G$(4),G$(5),G$(6),G$(7) , G$ (8 ) : GOTO440 
,42 IFN=9THENINPUTG$(1),G$(2) ,G$(3),G$(4),G$(5),G$(6),G$(7),G$(8),G$(9) 

4 30 IFN=10THENINPUTG$(1) ,G$(2),G$(3),G$(4),G$(5),G$(6),G$(7),G$(8),G$(9),G$(10) 
440 GOSUB530 :REM MAKE EVALUATION OF THE GUESS. 

450 IFB=NG0T0480: REM GUESS IS CORRECT. 

460 PRINTTAB(48);"TRU=";B;" XTR=";W;" GSS=";T 

470 GOT0300 

480 PRINT" YOU ARE CORRECT!!! IN ";T;" GUESSES." 

490 END 

500 REM 

510 REM -GUESS EVALUATION- 

5 20 REM 
530 B=0:W=0 
540 F0RK=1T0N 

550 REM FIRST 3 LETTERS OF GUESS COMPARED TO FIRST 3 OF ANSWER. 

560 IFCC$(K)OLEFT$(G$(K) ,3)THENGOTO620 

570 B=B+1 

580 REM' POSITIONS ALREADY MATCHED ARE MADE UNIQUE SO THAT- 

590 REM NO ENTRY .IS TALLIED TWICE. 

600 CC$(K)=CHR$(K+11) 

610 G$(K)=CHR$(K+22) 

620 NEXTK 

630 F0RK=1T0N 

640 F0RJ=1T0N 

650 IFCC$(K)OLEFT$.(G$(J) , 3) THENGOT0700 

660 W=W+1 

670 CC$(K)=CHR$(K+.ll) 

680 G$(J)=CHR$(K+22) 

690 J=N 

700 NEXTJ:NEXTK 

710 T=T+1 

720 RETURN 

730 REM 

740 REM -RANDOM DATA- 

750 REM 

760 REM DATA SHOULD BE CHANGED OCCASIONALLY. 

770 FORP=1T010 

780 FORQ=1T010 

790 READM$(P,Q) 

800 NEXTQ:NEXTP 

810 DATABLA,BLA,BLA,BLA,BLA,BLA,BLA,BLA,BLA,BLA 

820 DATAWHI,BLA,WHI,BLA,WHI,BLA,BLA,WHI,WHI,BLA 

830 DATARED,BLA,RED,WHI,RED,BLA,BLA,WH'I,RED,RED 

840 DATABLA,RED,BLA,RED,YEL,YEL,WHI,WHI,RED,WHI 

85 D ATAGRE , YEL , YEL , BLA , RED , WHI , B LA , RED , RED , YEL 

86 DATABLA,YEL,WHI,RED,GRE,BLU,GRE,BLA,BLU,BLU 
870 DATAORA,YEL,GRE,RED,WHI,BLA,BLA,0RA,RED,YEL 
880 DATABLU,BLU,BLU,GRE,ORA,RED,WHI,PUR,RED,BLU 
89 DATAYEL,GRE,PUR,ORA,BLA,GOL,WHI,GRE,BLU,WHI 
900 DATAGOL,GRA,RED,YEL,PUR,ORA,BLA,GRE,RED,GOL 
910 RETURN 
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Letter Writing Program Solves Photographers Mailing Problems 



10 REM LETTER WRITING PROGRAM— INSERT LETTER BODY FROM £00 TO 

12 REM £79* DATA FROM 1000 AND UP 

20 PRINT "FIWCTI0NS1"JTAB<15>"<1) LIST DATA STATEMENTS" 

25 PRINT TABU5>"<2) PRINT MAILING LABELS"* PRINT TAB<I5)"C3> WRITE LETTE 

RS" 

30 PRINT TABC15>"<4) PRINT 'TOWN CODE'" ,_\ 

3 5 INPUT "FUNCTION < 1,2, 3, OR 4 )"SK 

40 IF K-l THEN GOSUB 10000iLIST 999 

45 IF K«2 THEN RUN 600 

50 IF K-3 THEN RUN 95 

55 IF K-4 THEN GOTO 65 

60 FRIST-PLEASE ANSWER 1, 2, 3, OR 4"! GOTO 35 

65 GOSUB 10000JPRINTIPRINT"-- TOWN CODE 

67 FOR J»l TO 10IPRINT J} " — "S 

70 ON J GOSUB 700,705,710,715,720,725,730*735,740,745 

7 5 PRINT C$(J> 
80 NEXT J 

8 5 GOSUB 10020 
90 GOTO 35 

95 INPUT"DATE">DStGOSUB 10000 
97 J = 

100 READ A$,B$,CS 

101 IF AS»"END" THEN GOSUB 10020 

102 J-VALCCS) 

104 IF d-0 THEN GOTO 110 

106 ON J GOSUB 700,705,710,715,720,725,730,735,740,745 

108 CS»CS(J> 

110 FOR I«l TO 10!PRINTlNEXT I 

120 FOR 1=1 TO 72: PRINT"*"; INEXT I 

130 PRINTtPRlNTl PRINT DS 

140 FOR 1=1 TO 4IPRINTINEXT I 

150 PRINT"WILKINSON STUDIO":PRINT"2308 NEW WALLAND HWY" 

160 PR1NT"MARYVILLE, TN. 37801" 

170 FOR I-l TO 7tPRINTtNEXT I 

180 PRINT All PRINT BSl PRINT CS 

185 PRINTt PRINT 

190 PRINT"DEAR ";iQOSUB 5001 1 PRINT"! " 

199 PRINT I REM BODY OF LETTER FROM 200 TO 279 

280 PRINT:PR1NT"SINCERELY, "JPRINT 

290 PRINT"LEE WILKINSON": PRINT"PHONE 982-6703" 

300 FOR I- 1 TO HlPRINTiNEXT I 

30S GOTO 100 

500 FOR I»i TO 8 » PRINT M1DSCAS, I, I>; 

505 c-a 

510 IF MID$<AS, I, 1> = " " THEN 1-8 

520 NEXT 1 

530 X=LEN<A$> 

540 FOR I-X TO 1 STEP -1 

5 50 C-C+l 

560 IF MIDSCAS, I, 1>»" " THEN 1=1 

570 NEXT I 

580 PRINT R16HTSCA*,C>i! RETURN 

598 REM SUB ROUTINE FOR MAILING LABELS -- TYPE END, END, END FOP THE 

599 REM LAST THREE LINES IN THE DATA STATEMENTS — 

600 GOSUB 10000 

60S DIM AS<2),BS(£>,CS<2) 

610 I-0IJ-0 

620 FOR I>1 TO 2 

630 READ AS<I>,BS<I>,CS<I> 

632 T=VALCC$<n> 

634 IF T-0 THEN GOTO 640 

636 ON T GOSUB 700,705,710,715,720,725,730,735,740,745 

638 CS(I>-CSC«i) 

640 NEXT I 

650 PRINT ASCI) TABC38) AS<2) 

660 PRINT BS(1> TAB(38> BSCS) 

670 PRINT CSC1) TAB<38) C$<2> 

675 IF A$<2>-"END" THEN GOSUB 10028 

680 PRINT! PRINT: PRINTS REM SPACES BETWEEN LABELS 

690 GOTO 620 

699 REM DATA FOR CITY CODES 

700 C$<J)="MARYVILLE, TN. 37801": RETURN 
705 CS<J>-"ALC0A, TN. 3770 1"« RETURN 

7 10 C$CJ)»"FRIENDSVILLE, TN. 37737": RETURN 

7 15 CS<J> -"GREENBACK, TN. 37742"! RETURN 

720 CS< J > -"LOUISVILLE, TN. 37777"! RETURN 

725 C*(d>-"MENTOR, TN. 37808"!HETURN 

730 C$<J)-"R0CKFORD, TN. 37853"! RETURN 

7 35 CSCJ)-"SEYMOUR, TN. 37865"lRETURN 

740 C$CJ>-"TOWNSEND, TN. 37882"! RETURN 

7 45 C$<J)«"WALLAND, TN. 3788 6" x RETURN 

999 REM DATA STATEMENTS FROM 1 000 AND UP 

9997 REM 



continued on page 26 
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Letter Writing Program Solves Photographer's Mailing Problems 

continued 



9 998 REM 

9999 REM SOB-ROUTINES FOR HARD COPY ***** 

10008 INPUT-WANT HARD COPY";H$ 
10005 IF LEFTICHS. li<>"Y" THEN RETURN 

10008 PRINT"TURN ON PRINTER —PRESS SPACE BAR"tWAIT 0.1*1 
10010 POKE1352.20IPOKE1360.2HPOKE1367.20IPOKE1374.21SRETUFN 
10020 PQKE1352.0SPOKE1360. 1 IP0KE1367. 0!POKE1374. 1 1 RETURN 
OK 



Sample Letter 



************************************************************* 

OCTOBER 1 1977 



V ILK IN SON STUDIO 
2308 NEW WALLAND HVY 
MARYVILLE. TN. 37801 



MRS. GEORGE JONES 
1 S3 ANYSTREET 
MARYVILLE. TN. 37801 



DEAR MRS. JONES! 

***** HAPPY BIRTHDAY TO BABY ***** 

TO HELP CELEBRATE BABY'S BIRTHDAY WE HAVE A SPECIAL OFFER 
FOR YOUR FAMILY. 

** 6 MONTH BIRTHDAY SFECIAL ** 

1 - 8 X 10 COLOR PORTRAIT FOR YOURSELVES 
2-5X7 COLOR PORTRAITS FOR GRANDPARENTS 

ALL FOR ONLY S19.95 ***** 

AND MRS. JONES. IF YOU'LL CALL US WITHIN 3 DAYS OF RECEIPT 
OF THIS LETTER WE WILL INCLUDE WITH YOUR BIRTHDAY SPECIAL 
PACKAGE. ABSOLUTELY FREE. 8 COLOR WALLETS. 

REMEMBER MRS. JONES. TIME FLIES SO CALL US TODAY ! 

SINCERELY. 

LEE WILKINSON 
PHONE 982-6703 



Sample Listing 



LIST 199 

199 PRINT I REM BODY OF LETTER FROM 200 TO 279 

200 PRINT" ***** HAPPY BIRTHDAY TO BABY *****" 

210 PRINT* PRINT-TO HELP CELEBRATE BABY'S BIRTHDAY WE HAVE A SPECIAL OFFE 

R" 

£20 PRINT"FOR YOUR FAMILY. ": PRINT 

230 PRINTTAB<20>'*** 6 MONTH BIRTHDAY SPECIAL **":PRINT 

235 PRINT"! - 8 X 10 COLOR PORTRAIT FOR YOURSELVES" 

240 PRINT"2 - 5 X 7 COLOR PORTRAITS FOR GRANDPARENTS"«PRINT 

245 PRINT"ALL FOR ONLY $19.95 *****": PRINT 

250 PRINT"AND "JsGOSUB 500JPRINT", IF YOU'LL CALL US WITHIN 3 DAYS OF PE 

CEIPT" 

255 PRINT"OF THIS LETTER WE WILL INCLUDE WITH YOUR BIRTHDAY SPECIAL" 

260 PRINT"PACKAGE. ABSOLUTELY FREE. 8 COLOR WALLETS." 

265 PRINT! PRINT"REMEMBER "JjGOSUB 500SPR1NT". TIME FLIES SO CALL US TODA 

Y !" 

280 PRINT8PRINT"SINCERELY."»PRINT 

290 PRINT-LEE WILKINSON"! PRINT"PHONE 982-6703" 
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AUDIOSYNCRACIES 

Unique Audio Processing Applications of the 88-AD/DA 

By Thomas G. Schneider 
MITS 



AUDIOSYNCRACIES is a three-part 
series devoted to exploring unconventional 
applications of the Altalr 88-AD/DA board. 
Hardware and software theory and imple- 
mentation of the board in the Altair 8800 
series mocrocomputers will be covered. 

Part I Includes: Theory of the audio 
delay line, a simple audio delay line for 
producing echo effects, and a description 
of interface circuitry for this and sub- 
sequent audio application articles. 

Audio signal processing is one of the 
more fascinating applications of the Altair 
88-AD/DA board. This board's high speed 
of analog to digital conversion makes it 
particularly suitable for good quality digi- 
talization of audio information. 

One especially interesting application 
if the creation of audio delays using the 
88-AD/DA board. By taking an audio 
signal, delaying it, and then recombining it 
with the original signal, a variety of inter- 
esting echo and reverberation effects can 
be produced, hi the past, echo effects were 
produced by a tape loop. A diagram of this 
method is shown in Figure 1. The audio 
signal is recorded onto the magnetic tape 
loop by the record head and then played 
back off the tape by the multiple playback 
heads. The distance between the record 
and playback heads determines the amount 
of time that passes until an echo is heard. 
The number of echos that are heard is 
determined by how many playback heads 
the tape passes over after it passes the 
record head. There is a disadvantage 
to this method: it requires a tape trans- 
port, and magnetic tape is one of those 
mediums that deteriorates with age. 

In this first article, we will explore the 
advantages of using the 88-AD/DA and the 
Altair computer to implement a solid-state 
no-moving-parts system which will per- 
form this echo function in addition to pro- 
ducing several other interesting effects. 
SOFTWARE 

The method for producing the echo 
effect is shown in flowchart form in Figure 
2. After briefly studying the flowchart, you 
will notice that we are essentially imitating 
the tape loop echo method, but the medium 
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is the memory of the computer, and the 
"record" and "playback" head functions 
are implemented in software. The "re- 
cord" function is accomplished by using 
pointer HL to write the digitalized audio 
information into memory. The "playback" 
function is accomplished by using pointer 
DE to retrieve the information from 
memory. Both pointers are simultaneously 
stepped through memory, but pointer DE 
runs behind pointer HL. The time it takes 
for pointer DE to reach and read data from 
the same point in memory that pointer HL 
has written data into, determines the delay 
time until the echo of the original signal is 
heard. As each pointer reaches the top 
limit of memory, it is reset back to the 
beginning, giving us a continually running 
loop. The amount of time that passes until 
the echo of the original signal is heard is 
determined by the difference in starting 
points of pointers HL and DE. The offset 
can be any value you choose, so a wide 
variety of delay times are possible. The 
maximum amount of delay is, of course, 
limited by the amount of memory in the 
computer. To obtain the maximum delay 
time, set pointer HL to the middle of the 
memory space and set pointer DE to the 
beginning of the memory space. For this 
first experiment, we will produce only one 
echo. The machine code program for pur 
delay function is shown in Listing 1 . 
HARDWARE 

To properly interface the 88-AD/DA 
with real world audio signals, you need to 
construct one relatively simple circuit. 
(See Figure 3.) The top half of this circuit 
takes a real world audio signal and shifts it 
into the voltage range acceptable by the 
88-AD/DA's input. The voltage at the 
input of the 88-AD/DA must not be lower 
than ground and higher than 10 volts. 
Since audio signals usually go both above 
and below ground, the input conditioning 
circuit shifts the entire audio signal up- 
wards so that all signals are above ground 
and below 10 volts. The two diodes at the 
output of the circuit ensure that the signal 
reaching the 88-AD/DA doesn't exceed the 
0-10 volt range. The OP- AMP in this 
circuit can be just about any general pur- 



pose OP-AMP, like the 741, for example. 
The bottom half of the circuit in Figure 3 is 
used to mix the output of D/A converter 
and the original input signal before these 
signals go out to the real world. 

To adjust this interfacing circuitry, use 
the following procedure. Adjust the origi- 
nal signal gain pot and the delay gain pot 
to their positions of highest resistance. 
Adjust the input signal gain pot to its posi- 
tion of least resistance. With no input 
signal applied, adjust the offset pot so that 
5 volts appears at the output of the OP- 
AMP. Apply an audio signal typical of 
what you will be running into the system 
and adjust the input signal gain pot so that 
the voltage at the output of the OP-AMP 
swings no more than about seven volts 
peak-to-peak. After toggling in the pro- 
gram, hit run and adjust the output mixing 
pots to obtain a pleasant mix of the original 
and delayed audio signals. 

Referring again to the software, you 
can easily change the delay time by in- 
creasing or decreasing the starting address 
of the HL register. To run this software in 
your Altair computer, it may be necessary 
to change a few things in the program, de- 
pending on how much memory is available. 
The contents of the following addresses are 
important: 

41 and 42 contain the starting address 
of the write pointer . 

44 and 45 contain the starting address 
of the read pointer. 

53 and 64 contain the most significan 
byte of the highest memory address 
used as storage space. 

When modifying this program to suit 
your memory size, be careful not to write 
over the program. One thing to remember 
about audio modification programs... don't 
be afraid to modify the program itself. 
You may be surprised with some bizarre 
and unusual results 1 

Next month, AUDIOSYNCRACIES 
will cover a more flexible software routine 
for the audio delay line and interface 
circuitry modifications for producing con- 
tinuously recirculating echo effects. 

continued on page 28 
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FIGURE 1 
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AUDIOSYIMCRACIES 



continued 
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AUDIOSYNCRACIES 
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AUDIO DELAY SOFTWARE < ASSUMES A/D-D/A BOARD IS AT OCTAL ADDRESS 10O ) 






257 INIT, XRA A 


1 


323 


OUT 100 


2 


100 




3 


323 


OUT 101 


4 


101 




5 


323 


OUT 102 


6 


102 




7 


323 


OUT 104 


10 


104 




11 


323 


OUT 106 


12 


106 




13 


057 


CMA 


14 


323 


OUT 103 


15 


103 




16 


323 


OUT 105 


17 


105 




20 


323 


OUT 107 


21 


107 




22 


076 


MOV A, 054 


23 


054 




24 


323 


OUT 100 


25 


100 




26 


323 


OUT 102 


27 


102 




30 


323 


OUT 104 


31 


104 




32 


323 


OUT 106 


31 


106 




34 


000 


NOP 


35 


000 


NOP 


36 


000 


NOP 


37 


000 


NOP 


40 


041 START, LXI H, 020/000 


41 


000 




42 


020 




43 


021 


LXI D. OOl/OOO 


44 


000 





PROGRAM LINES 0-33 INITIALIZE 
THE A/D-D/A BOARD 



LOAD HL WITH WRITE 
POINTER STARTING ADDRESS 



LOAD DE WITH READ 
POINTER STARTING ADDRESS 



Thirty 



continued 
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AUDIOSYNCRACIES 



continued 



45 


001 






46 


257 


CONV. 


XRA A 


47 


323 




OUT 103 


50 


103 






51 


174 


CHKH, 


MOV A, H 


52 


376 




CPI 200 


53 


200 






54 


302 




JNZ CHKD 


48 


062 






56 


000 






57 


076 




MVI A, 001 


60 


001 






61 


147 




MOV H,A 


62 


172 


CHKD, 


MOV A, D 


63 


376 




CPI 200 


64 


200 






65 


302 




JNZ INPT 


66 


073 






67 


000 






70 


076 




MVI A, 001 


71 


001 






72 


127 




MOV D, A 


73 


333 


INPT, 


INP 101 


74 


101 






75 


167 




MOV M, A 


76 


353 




XCHG 


77 


176 




MOV A, M 


100 


323 




OUT 105 


101 


105 






102 


353 




XCHG 


103 


043 




INX H 


104 


023 




INX D 


105 


303 




JMP CONV 


106 


000 






107 


000 







OUTPUT A TO PORT 103 
TO START CONVERSION 

SEE IF HL POINTER HAS 
REACHED THE TOP OF 
MEMORY SPACE 
IF NOT, CHECK THE DE 

POINTER 

LOAD H WITH 1 



SEE IF DE POINTER 
REACHED THE TOP OF 
MEMORY SPACE 
IF NOT, GET AUDIO INPUT 



PUT 001 IN D 



GET AUDIO INPUT FROM A/D 

AND MOVE IT TO MEMORY 
SWAP POINTERS HL & DE 
GET DATA FROM MEMORY 
AND OUTPUT IT TO D/A 

SWAP POINTERS BACK 
INCREMENT HL POINTER 
INCREMENT DE POINTER 



CN/November 1977 



Thirty-one 



TRACE PROGRAM continued 



PROGRAM USED TO 
DEMONSTRATE SAMPLE RUN 



00001 








NAM 


00002 




: '; ■' 




OPT 


00003 


3000 






ORG 


00004 






* 




00005 






♦SHOWEM - A 


00006 






*TO SHOW RUN 


00007 






* 




00003 


3000 CE 


300E 


XX 


LDX 


00009 


3003 AS 


00 


zz 


LDA A 


00010 


3005 2 7 


FE 




BEQ 


00011 


3007 BD 


300C 




JSR 


00012 


300A 20 


F7 




BRA 


00013 






*- 




00014 


300C 08 




YY 


I NX 


00015 


300D 39 






RTS 


0001 S 






* 




0001 7 


3.00 E 41 




TABLE 


FCC 


00018 


3011 00 






FCB 


00019 








END 


TOTAL 


ERRORS 00000 






ENTER 


PASS X 









SHOWEM 

NOG.M . 
$3000 

SAMPLE PROGRAM 



#TABLE 

0,X 

* 

YY 

ZZ 



/ABC/ 




SAMPLE RUN OF DEBUG PROGRAM 



J -4000 
DEBUG 
@ T ADDR 
@ D 



3F 

J ADDR 
08 
39 

J ADDR 
CE 300E 
AS 00 
FE 



27 



D 
S 

T 

X 

8 

T 

T 

T 

T BD 300C 

T 08 

T 39 

T 20 

T 

T 

T 

T 

T 

T 

T 

T 27 



F7 
AS 00 
27 FE 
BD 300C 
08 
39 

20 F7 
AS 00 



FE 

T BD 300C 
03 



T 

T 

T 

T 

T 

T 27 

T 

T 

T 

T 

DEBUG 

8 C 77 
@ B 88 
@ A 
@ X 
@ I 
® 

e D 

D 27 FE 

9 M 



39 

20 F7 
AS 00 
2 7 FE 
FE 
2 7 FE 
2 7 FE 
2 7 FE 
2 7 FE 



99 

AAAA 
ADDR 
ADDR 



7 3000 ADDR 7 301 1 
00 Fl D0 00 00 00 00 00 00 30 00 30 11 00 00 00 00 



? 300C 
00 Fl 
00 Fl 

7 3000 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fi 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 
00 Fl 



? BBBB 
? CCCC 



D0 00 00 00 00 30 0C 

D0 00 00 00 01 30 0D 30 00 30 11 00 00 00 00 



D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00. 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D0 00 
D4 00 
D4 00 
D4 00 
D4 00 
D4 00 
D4 



00 00 
00 30 



30 
30 

30 
30 
30 
30 



42 30 
42 30 
42 30 
42 30 
-42 30 

42 30 

43 30 
43 30 
43 30 
43 30 
43 30 
43 30 
00 30 
00 30 
00 3 
00 30 
00 3 



01 30 00 
0E 30 03 
0E 30 05 
0E 30 0C 
0E 30 0C 
0F 30 0A 
0F 30 03 
0F 30 03 
0F 30 05 
0F 30 0C 
0F 30 0C 
10 30 0A 
10 30 03 
10 30 03 
10 30 05 
10 30 0C 

10 30 0C 

11 30 0A 
11 3 03 

30 03 
30 05 
30 05 
30 05 
30 05 
30 05 



11 
11 
11 
11 
11 
11 



00 Fl 77 88 99 AA AA 30 05 30 00 30 11 BB BB CC CC 
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A Definition of Terms: 



sub-scribe /, seb-'scrib/ vb sub-scribed; 
sub-scrib-ing [me subscriber]!: to sign 
one's name to a document (as a cou- 
pon; as the one below) 2: to enter 
one's name for a publication (as CN- 
Computer Notes; one year for $5,00/ 
$20.00 per year overseas) 3: to feel 
favorably disposed syn assent ant 
boggle-sub-scrib-er n 



/■compute 
notes 



nTfnm ^ ^O a subsidiary of Pertec Computer Corporation 

2450 Alamo S.E. 

Albuquerque, New Mexico 87106 



Please send me a 1 year subscription to Computer Notes. 
$5.00 per year in U.S. $20.00 per year overseas. 



NAME: 



ADDRESS:_ 



CITY: : STATE: ZIP_ 

COMPANY/ORGANIZATION 



I 



□ Check Enclosed MC or BAC/Visa #_ 

□ Master Charge Exp Date 

□ BankAmericard/Visa Signature 



